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TI99/4A | 

i 
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• 
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i 

SCRABBLE • Découvrez les finesses 1 

i 

1 

du scrabble avec votre ordinateur qui 1 

l 

j 

remplace la table de jeu et compte les . 

i 

1 

• 

points. 

1 

| 

STAR WALL • Un mur qalactique 

i 

• 

avance inexorablement vers vous. 


1 

OTHELLO • Pions noirs et pions blancs J 

i 

• 

1 

s'affrontent. 

• 


INVERSES • Blanchissez un carré de 

i 

• 

i 

trois cases sur trois en choisissant parmi 1 
les huit combinaisons possibles. 

• 

i 

! 

i 

CRYPTO-DRAME • Un messaae 1 

codé apparaît sur votre écran. 

■ 

1 

i 

• 

i 

• 

i 

i 

i 

• 

i 

• 

i 

• 

L 

i 
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■ 
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• 

i 

• 
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TI99/4A j 


I 

i 

i 

• 

i 

• 
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TOUS EN FORME • Créez une forme j 


• 

i 

• 

i 

et obtenez immédiatement ses codes. 1 



i 

MOON PATROL • Reioiqnez la base i 


i 

i 

lunaire la plus proche en évitant les 


• 

i 

• 

projectiles des vaisseaux ennemis et les 1 


i 


cratères insondables. 


i 

i 

• 

PUISSANCE 4 • Aliqnez le premier 



1 

des quatre pions de votre couleur et 


• 

i 

• 

ridiculisez votre adversaire. 



1 

ADAM ET EVE • L'iqnoble serpent qui j 



• 

i 

a poussé Eve à manger la pomme est 


i 


aujourd'hui enfin puni. 


i 

i 

MEMORY • Retrouvez dans un 


i 


tableau les différentes formes de 


j 

i 

couleurs qui vont par paires mais 


i 

• 


apparaissent au hasard. 

• 

1 

• 

1 

• 

1 


1 

• 

1 

i 

i 

i 

• 

i 

• 

i 

• 
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ZX81 

POÈME • Donnez dans l'ordre : dix 
noms, dix verbes, dix compléments, et 
ce programme fabriquera 
automatiquement des phrases 
inoubliables I 

SPLASH DOWN • Réalisez le saut 
de votre vie (ou de votre mort) en 
indiquant simplement à l'ordinateur ïa 
hauteur et la longueur de votre saut. 
PIÈGE • Evitez les * et attrapez les $ 
si vous ne voulez pas mourir dans des 
délais trop brefs... 

TIR A L'ARC • Robin des Bois 
moderne, touchez dix fois de suite une 
cible qui se déplace de haut en bas sur 
la droite de votre écran. 

LEM • Menez à bien l'alunissage de 
votre LEM. 


1 
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• 

1 
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ZX81 | 

T" 

• 

i 

• 
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• 

i 

n 

• 

i 

• 

i 

• 

i 

MÉTÉORES • Poursuivez sans trêve un 1 

i 

• 

météorite. 

• 

i 

1 

• 

VIADUC EN FOLIE • Arriverez-vous | 

i 

| 

à faire traverser la rivière à toutes les 

• 

i 

i 

t 

jeunes filles qui se présentent? 


1 

BASKET • Redécouvrez les ioies du j 
basket... sur votre écran. 

i 

• 

1 

ZX 600 • Aidez un SDortif asthmatique ] 
à parcourir les 600 mètres fatidiques 
d'une course d'endurance. 

JET FORCE • Vous devez 
impérativement décoller de votre porte- j 

i 

• 

i 

• 

i 

• 

i 

• 

i 

• 

avions. [ 

1 

i 
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• 
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• 
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THOMSON MO 5 i 

i 

i 
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• 

i 

• 

■ 

1 

■ 

i 

• 

1 

• 

1 

TRON • Inspiré de la célèbre course 

i 

i 

de motos nucléaires du film Tron, ce jeu • 

i 

i 

• 

ne vous laisse pas une seconde de répit. | 

i 

i 

REBONDS EN FOLIE • Diriaez une ■ 

i 

i 

• 

super-balle vers sa cible grâce à des | 

i 

• 

1 

« barres de rebond ». 


• 

POPEYE • Aidez Popeye à rattraper 

i 

1 

tous les objets qui tombent sur sa droite, j 

i 

i 

sur sa gauche ou... sur sa tête. 

• 

l 

2001 • Découvrez l'espace 2001 et 

i 

• 

i 

ses pièges mortels. 1 

MIDWAY • Votre ordinateur sera-t-il I 

i 

i 

• 

i 

le plus fort dans la bataille navale qui 1 

i 

i 

va vous opposer à lui. 

i 

• 

! 

_i_ 

l 

• 

1 

• 

1 

• 

I 

i 

• 

i 

■ 

! 

i 


i 

i 

• 

i 

• 

THOMSON MO 5 j 
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• 
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• 
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• 
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i 

X RAYS • Des lianes électrifiées en j 
liberté? C'est inconcevable... 

GUERRE NUCLÉAIRE • La Terre 
sera-t-elle radio-active ou non ? Son sort J 

1 

• 

1 

i 

1 

• 

1 

i 

est entre vos mains. 

ELECTROCHOC • Parviendrez-vous à ! 

i 

i 

suivre le rythme infernal d'un cable 
haute tension ? 

STAR WARS • La auerre a reoris 
entre les forces du mal et votre planète. • 

LOVE SOURIS • Vous aimez les 

i 

• 

i 

i 

i 

i 

i 

souris ? Tant mieux. Un pauvre petit 

animal s'est égaré dans un labyrinthe. | 

• 

1 

* 

1 

• 

1 

• 
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• 

i 

• 
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COMMODORE 64 i 

-i— 

• 

i 

■ 

I 

| 

1 

• 

1 

i 

MASTER MIND • L'ordinateur choisit j 
cinq couleurs parmi huit qu'il garde • 

secrètes et que vous devez retrouver. 

TILT-MAN • Trois tailles de labyrinthe j 
pour un tilt-man qui doit s'échapper le | 
plus vite possible. 

SERPENT-CRASH • Obliaez le 
serpent du Commodore à entrer en 
collision avec le vôtre ou avec un des 
obstacles qui parsèment le champ de 

• 

1 

• 

l 

i 

i 

• 

1 

i 

i 

• 

i 

i 

• 

i 

• 

i 

jeu. ! 

i 

i 

POM POM POM POM... • Empêchez 1 
une chenille de grandir en tirant sur ses I 
pommes préférées et sur ses nouveaux 

1 

1 

• 

i 

i 

anneaux. 


• 

SUPER-BABALLE ! • Diriaez une 
balle vers sa cible grâce à des j 

déviations judicieusement choisies. 

i 

• 

i 

i 

• 

1 

• 

1 

• 

1 

i 

• 

i 

i 
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COMMODORE 64 j 
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• 

1 

i 

• 

i 

• 

i 

• 

i 

FIRE • Sauvez les habitants d'un j 

î 

i 

■ 

immeuble en flammes. 

ROBOTS • Des robots vous 

1 

i 

! 

i 

poursuivent dans une pièce aux murs 
électrifiés. Seule solution pour survivre, j 

i 

• 

s . 

1 

j 

les pousser contre les murs. 

1 

• 


RACER • Quatre circuits, quatre 
challenges, et, entre vos mains, le volant J 
d'un bolide aux performances 

! 

i 

i 

i 

époustouflantes. ! 

• 

i 

• 

TANKS • Lancez votre char dans une 1 

i 

i 

course infernale. • 

• 

i 

■ 

• 

BOWLING • Réalisez les slrikes et les | 


i 

spores de votre vie grâce à cette • 

i 

• 

i 

exceptionnelle simulation de bowling. 

• 

1 

• 

1 

■ 

1 

i 

■ 

• 
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• 
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MSX | 
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• 

1 

• 

1 
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t 
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MISSILE • Un missile vous poursuit ; 

■ 

# 


sons relâche. Evitez-le et sauvez la 

1 



Terre. • 

1 

1 

t 


CASSE-BRIQUES • Vous Densiez 

1 

• 

| 


maîtriser toutes les subtilités du cosse- r 


t 


briques ? Essayez donc cette version où | 

1 

• 

1 


les raquettes classiques ont été 

| 

• 

I 


remplacées par deux flips... 

• 

1 



KOINS • Des monstres vous traquent i 

1 

t 


sans arrêt. Seule solution pour vous sortir 1 

• 

I 



de ce piège, les écraser après les avoir j 




encerclés avec des blocs de glace. 1 

• 



RAID • Votre avion vous attend, prêt àl 

1 

i 


décoller. Bouclez votre ceinture et... à ! 

1 

i 

• 


vous les sensations fortes ! 

1 



DESTROY • Le sort de la base est 


I 

• 


entre vos mains. Si un missile parvient à | 

1 

• 

1 


franchir vos tirs de barrage, tout est j 


• 


perdu. 

• 

1 

• 
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MSX | 

—i- 

• 

i 

• 

i 

LE PETIT PEINTRE • Repeiqnez une 1 

• 

pièce entière sans vous faire attraper | 

i 

par les monstres furieux de voir leur 

• 

tranquillité troublée. 

i 

PUZZLE • Reconstituez un puzzle • 

coVnposé de chiffres. L'ordinateur est 

• 

i 

tolérant : il vous laisse recommencer 
autant de fois que vous le désirez. I 

SKRAMBLE • Aventurez-vous dans la j 

• 

i 

• 

i 

grotte aux mille diamants... et revenez J 
riche ou mort ! j 

i 

• 

i 

CŒUR BRISÉ • Fendrez-vous le cœur J 

i 

• 

de votre ordinateur? Déplacez une 


flèche avec habileté et réussissez cet ! 

i 

• 

exploit peu commun. 

i 

LETTRES A GOGO • Reconstituez le • 

• 

mot proposé par l'ordinateur à l'aide 

i 

des lettres qui tombent du haut de votre • 

• 

écran. 

i 

_i_ 
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i 

_ i _ 
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SPECTRUM | 

i 

i 

i 

1 

i 

1 

ROULETTE RUSSE • Préparez-vous à j 
affronter la mort. Votre Spectrum adore 1 
jouer à la roulette russe, et lui, il a les 
nerfs solides. 

U-BOAT • Un sous-marin ennemi se j 
cache au fond des eaux troubles du ! 

Pacifique. Lâchez vos mines sur lui avec 1 
le plus de précision possible. ! 

i 

i 

i 

i 

i 

i 

• 

i 

• 

i 

i 

• 

i 

• 

DUEL • Deux ovnis se poursuivent dans | 
les gerbes d'étincelles. Touchez l'autre • 

i 

i 

i 

• 

vous marquerez un point. 

SUITE INFERNALE • Une suite de j 

i 

j 

i 

• 

nombre apparaît en haut à droite de 
votre écran. Reconstituez-la en 

i 

i 

i 

• 

i 

ramassant dans votre petite barque les 
chiffres qui tombent du ciel. 

SPACE WALL • Protéaez le mur 
magnétique qui défend votre cité contre 1 

i 

i 

i 

• 

i 

• 

les attaques ennemies. ! 

1 

• 

1 

i 

L 

• 

i 

• 

■ 


| 

SPECTRUM j 

• 

1 

• 

1 

i 

i 

i 

• 

BLACK JACK SPÉCIAL • Accrochez 

• 

i 

i 

■ 

■ 

les 21 points sans jamais les dépasser. 

ROMÉO • Rôle difficile que celui de j 

Roméo. Surtout depuis qu'on a remplacé | 

i 

• 

i 

i 

• 

i 

son échelle par une catapulte ! 

j 

i 

REBOND SURPRISE • Récupérez les 1 
balles qui tombent du haut de l'écran. 

i 

i 

■ 

i 

NIMITZ • Les réserves de 
carburant de votre Mirage 2000 sont 
presque épuisées. Le porte-avion Nimitz ! 
est votre seul espoir de survie. 

GHOST PAINTER ! • Des fantômes ! 
se ruent sur vous dès que vous vous 

• 

i 

i 

i 

• 

i 

• 

i 

i 

mettez à repeindre une pièce. j 

i 

j 
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i 

i 

i 

• 
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• 

i 

LAS VEGAS • Retrouvez le grand 
frisson des salles de jeux et empochez la, 
monnaie grâce à votre fidèle ordinateur. 1 

MEMORY • Retrouvez dans un 
tableau les différentes formes de 

• 

! 

i 

• 

i 

• 

i 

couleurs seulement visibles deux par 

i 

• 

i 

deux. 1 

MUSIQU'ORIC • Découvrez de 

• 

i 

! 

i 

nouvelles possibilités sonores et 
composez vos propres mélodies. 

CARAMBOLAGE • Au volant de 
votre bolide, parcourez un labyrinthe 
sans jamais entrer en collision avec une | 

i 

• 

i 

i 

• 

1 

• 

1 

■ 

autre voiture. 

ATTENTION FRAGILE • Grâce à 1 
votre panier, bloquez la balle qui 
rebondit de murs en murs avant qu'elle . 
ne casse votre précieux verre à pied. 

• 

1 

i - 

i 

i 

i 

• 

i 

i 

1 

• 

l 

• 

l 

i 
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0RIC1/ATM0S | 

- r~ 

• 

1 

• 

1 

H 

• 

1 

• 

1 

GARE AUX BULLES • Promenez- 

• 

• 

i 

vous dans l'écran le plus longtemps 

i 

■ 

i 

possible sans jamais vous faire heurter 

1 

i 

par une bulle. 

• 

i 

• 

TÉLÉPHONES FOLIES • Décrochez 

1 


le maximum de téléphones avant que le 1 

• 

■ 

i 

• 

compteur n'arrive au chiffre fatidique de | 

1 

i 

zéro ! 

CIDRE OU PINCE • Pour gagner, il 

i 

• 

i 

vous faut remplir toutes les bouteilles de . 
la chaîne. Si- vous en ratez une, il vous 

■ 

i 

• 

i 

reste toujours la possibilité d'essayer de • 
la récupérer avec la pince. 

SPACE INVADERS • Revoilà les 

i 

i 

• 

! 

i 

fameux vaisseaux ennemis, toujours plus | 
agressifs, toujours plus nombreux. 

i 

• 

i 

• 

PEINTURE PARTY • Repeiqnez votre 1 

■ 

• 

i 

appartement sans vous faire attraper par j 

i 

i 

de voraces petits fantômes. | 

1 

■ 

1 

• 

• 

i 

■ 

i 

• 

i 
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• 

ATARI 600/800XL 

—--r 

—i 

• 

i 

• 

1 

• 

i 

ALPHALUCK • Recomposez le carré j 


• 

magique des lettres en remettant ces 
dernières dans l'ordre alphabétique. 


i 

• 

MAGI-CARRÉS • Neuf cases ù ! 

blanchir et un choix limité de 
déplacements. • 

THE WALL • Retrouvez les joies du 

Casse-briques dans votre version 


i 

• 

i 

• 

i 

• 

i 

particulièrement réussie. 

SKI • Vous dévalez des pentes 
enneigées en évitant tous les arbres. 

STAR DEFENCE • Cinq niveaux de j 
difficulté pour une féroce bataille contre | 
de nouveaux envahisseurs plus terrifiants j 


• 

1 

• 

i 

# 

i 

que jamais... ( 

• 

• 

1 

t 

1 


i 

• 

1 

• 

1 

• 

_!- 



- n 

• 

ATARI 600/800XL j 

i 

• 

1 

« 

1 

• 

RALLYE • Essayez de survivre le plus 
longtemps possible dans ce labyrinthe , 
infernal. 

RÊVE DE CHENILLE • Manqez 
toutes les étoiles mais évitez les 
météorites si vous voulez devenir une • 
super-chenille capable d'affronter 


1 

• 

1 

• 

1 

• 

1 

solitudes glacées et immensités infinies... j 

ALPHATACK • Toutes les lettres de 
votre abécédaire ont été prises de folie. | 

JACK-POT PARTY • On vous refuse 1 


i 

• 

i 

• 

systématiquement l'entrée des casinos? j 

Défoulez-vous à domicile avec ce 
superbe Jack-pot. 


i 

• 

i 

INVADERS • Ils tirent sans cesse sur ! 
vous, se rapprochent imperturbablement 1 


• 

i 

pour peu que vous les laissiez faire et ne! 
souhaitent qu'une chose : votre mort. 

• 


# 

i 

• 

i 

1 i 
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i 

APPLE II ET Ile ! 

1 

i 

i 

i 

i 

n 

i 

• 

! 

NUCLEAR • Principe simple mais 

■ 

i 

i 

réalisation ardue, Nuclear exige une 
concentration parfaite. * 

TOP RÉFLEXES • Une lettre apparaît 
sur votre écran, pressez la touche 
correspondante sur votre clavier. 

i 

i 

i 

• 

i 

i 

FORMULE 1 • Visibilité limitée, • 

j 

•• 

virages brusques, l'étape de nuit est 

i 

i 

souvent la plus sélective. 

i 

■ 

ORGUE MAGIQUE • Composez, 

• 

i 

enregistrez et jouez de l'orgue grâce à j 
ce programme conçu par un spécialiste 
des effets sonores en micro-informatique, j 

i 

i 

i 

i 

QUID • Concevez votre propre 

i 


questionnaire et soumettez vos amis à un i 
test impitoyable. ! 

1 

i 

• 

i- 

1 

i 

• 

i 

L 

i 

i 

i 

i 


- 1 

i 

APPLE II ET Ile j 

- r~ 

• 

1 

i 

j 

~1 

i 

j 

î 

GROSSE TÊTE • Reconstituez les 

i 

• 

• 

paires à partir de formes qui 
apparaissent au hasard sur votre écran. J 

421 • Formez à l'aide de trois dés la 
combinaison gagnante. 

ALPHABET EN FOLIE • Sauvez la 

i 

• 

i 

i 

1 

i 

• 

i 

République en déminant une tour que le • 
président doit inaugurer. 

DÉMINEUR • Reqroupez des lignes j 
électrifiées en poussant des cloisons 

i 

i 

• 

i 

• 

i 

spécialement conçues. 

X RAYS • Remettre les lettres dans 
l'ordre alphabétique ? Pas si facile que 
ça, quand on est obligé d'inverser la 

i 

• 

i 

• 

i 

• 

i 

■ 

case vide avec une lettre voisine. 

• 

1 

• 

! 

_i_ 

i 

i 

i 

i 

• 

i 

• 

i 

• 

i 
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AMSTRAD CPC 4641 

- i - 

• 

1 

• 

1 

• 

I 

i 

• 

i 

• 

i 


PRONOSPORT • Donnez la 

1 



combinaison gagnante de la prochaine 

i 

i 

• 


course et repartez les poches pleines 1 

i 

i 


CHASS'LETTRES • Des lettres 


■ 


tombent du haut de l'écran, aftrapez-les 

i 

i 


et reconstituez le mot proposé par [ 

j 

• 

■ 


l'ordinateur. 


i 


AMSTRAD MIND • Réplique du . 

i 

• 

■ 


célèbre jeu Master Mind, Amstrad Mmd | 

• 

i 


va mettre votre mémoire à rude 

i 

• 

i 


épreuve. 

• 

i 

i 


MORPION • Aliqnez cinq pions sur 

i 

i 


une ligne verticale, diagonale ou 

i 

l 


horizontale et écrasez l'ordinateur par 

i 

i 


votre supériorité stratégique. 

i 

i 

■ 


CATA-TIR • Détruisez sans remords les j 

i 

i 


dépôts de vivres de l'ennemi. Vous [ 

j 

i 

• 


pourrez ainsi vous rendre maître de 

i 

1 


toutes ses places fortes. 

• 

1 

i 

• 

i 

i 



-- 1 - ! 

• 

AMSTRAD CPC 4641 

1 

• 

1 

• 

1 

MOTS CACHÉS • Trouvez les lettres j 

j 

qui composent le mot caché dans la [ 

mémoire de l'ordinateur. 

• 

| 

DRÔLES DE CARACTÈRES • Créez ! 

• 

1 

les graphismes de vos futurs jeux. 

1 

LES ASCII ATTAQUENT • Des ! 

• 

1 

vagues de caractère ASCII déferlent sur 
vous. Détruisez-les et... apprenez à les • 
reconnaître. 

CASSE BOUTEILLE • Des bouteilles j 

■ 

1 

• 

1 

avancent lentement sur un tapis roulant à | 

1 

• 

trois niveaux. Rattrapez-les au fur et à 

1 

mesure de leur arrivée. 

1 

• 

UN PONT. CA VA. TROIS 

1 

PONTS... • Aidez des jeunes filles à [ 

1 

• 

traverser une rivière en plaçant sous 

| 

leurs pas les éléments d'un pont 1 

• 

transportable. 

• 

■ 

_1- 

1 

i 

J_i _ 

























ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Valeur 

Cosinus 1 V*”'™ 

Inversé lo *‘? ue 

Cl 

Codes ASCII 
do premier 
caractère 

Sinus 

Inversé 

Tangente 

inversée 

Lignes ; 
numérotation 
automatique 

Conversion 
d'un nbre bln. 
en décimale 

ORDINATEURS 

absolue 

APPLE II* 

ABS(x) 

- 

x AND y 

ASC (xS) 

— 

ATN (x) 

— 

— 

ATARI 600 XL/800 XL/400/800 

ABS (x) 

* 

x AND y 

ASC (xS) 

- 

ATN (x) 

— 

— 

COMMODORE 64 

ABS (x) 

- 

x AND y 

ASC (xS) 

- 

ATN (x) 

— 

— 

AMSTRAD 

ABS (x) 

- 

x AND y 

ASC (xS) 

— 

ATN (x) 

AUTO x, y 

— 

ORIC 1 

ABS (x) 

- 

xANDy 

ASC (xS) 

- 

ATN (x) 

— 

— 

ZX 81 

ABS (x) 

ACS (xS) 

x AND y 

— 

ASN x) 

ATN (x) 

— 

— 

SPECTRUM 

ABS (x) 

ACS (xS) 

xANDy 

- 

ASN (x) 

ATN (x) 

- 

BIN (x) 

Tl 99/4A 

ABS (x) 

- 

xANDy 

ASC (xS) 

— 

ATN (x) 

NUM x, y 

— 

THOMSON • T07 

ABS (x) 

- 

xANDy 

ASC (xS) 

— 

— 

AUTO x, y 

& B (x) 

M8X 

ABS (x) 

ASC (x) 

xANDy 

ASC (xS) 

ASN (x) 

ATN (x) 

AUTO x, y 

— 

ORDRES BASIC 

Renvoie à une 

Donne un 
caractère h partir 
du code ASCII 

Nombre 
en double 
précision 

Etfacemcnl 
des variables 

Chargement 
d'un logiciel 
sur cassette 

Chargement 
d'un logiciel 
sur disquette 

Effacement 
de l'écran 

Codes 

caractères 

ORDINATEURS 

routine en 
langage machine 

APPLE IP 

CAL x 

7 CHRS (x) 

- 

CLEAR 

LOAD " » 

LOAD " " 
RUN " ” 

HOME 

- 

ATARI 600 XL/800 XL/400/800 

- 

? CHRS (x) 

- 

CLR 

CLOAD “ ” 

CLOAD " " 

GRAPHICS 8 

— 

COMMODORE 64 

SYS x 

? CHRS (x) 

- 

CLR 

LOAD " ", 1 

LOAD '* ", 8 

CLS 

— 

AMSTRAD 

CALL x, y 

? CHRS (x) 

- 

CLEAR 

LOAD " " 

LOAD " " 

CLS 

CLG 

. - 

ORIC 1 

CALLx 

? CHRS (x) 

- 

CLEAR 

CLOAD “ " 

— 

CLS 

— 

ZX 81 

USR x 

- 

— 

CLEAR 

LOAD" " 

— 

CLS 

CODE (x) 

SPECTRUM 

USRx 

— 

— 

CLEAR 

LOAD " " 

— 

CLS 

CODES (x) 

Tl 99/4 A 

- 

? CHRS (x) 

— 

— 

OLD " " 

— 

CALL CLEAR 

— 

THOMSON - T07 

- 

? CHRS (x) 

CDBL (x) 

CLEAR 

LOAD " " 

LOAD" " 

CLS 

— 

MSX 

CALL 

7 CHRS (x) 

- 

CLEAR 

CLOAD " " 

— 

CLEAR 

— 

ORDRES BASIC 

Suile 

d'exécution 
après stop 

Couleur 

écran 

Cosinus 

Sauvegarde 
d'un logiciel 
sur cassette 

Sauvegarde 
d'un logiciel 
sur disquette 

Variables 

en 

fichier 

Définition 
d'une fonction 
mathématique 

Conversion 

nngululre 

ORDINATEURS 

APPLE IP 

CONT 

H COLOR x 

COS (x) 

C SAVE "x" 

SAVE “x" 

DATA x, y. 

DEF FN x - 

— 

ATARI 600 XL/800 XL/400/800 

CONT 

COLOR x 

COS (x) 

C SAVE "x" 

- 

DATA x, y, 

— 

DEG (x) 

COMMODORE 64 

CONT 

- 

COS (x) 

SAVE "x" 

SAVE "x", 8 

DATA x, y, 

DEF FN x = 

— 

AMSTRAD 

CONT 

PAPER x 

COS (x) 

SAVE "x" 

SAVE "x" 

DATA x, y, 

DEF FN x = 

DEG 

ORIC 1 

CONT 

INK x 

COS (x) 

C SAVE "x” 

— 

DATA x, y. 

DEF FN x = 

— 

ZX 81 

- 

- 

COS (x) 

SAVE "x” 

- 

— 

— 

— 

SPECTRUM 

CONTINUE 

INK x 

COS (x) 

SAVE "x” 

- 

DATA x, y, 

DEF FN x = 

— 

Tl 99/4A 

- 

COLOR x, y 

COS (x) 

SAVE "x" 

— 

DATA x. y, 

DEF FN x = 

— 

THOMSON • T07 

CONT 

COLOR x, y 

COS (x) 

SAVE "x” 

SAVE "x" 

DATA x, y, 

DEF FN x = 

— 

MSX 

CONT 

COLOR x, y 

COS (x) 

SAVE "x” 

- 

DATA x, y. 

DEF FN x = 

DEG 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 

















































































































ORDRES BASIC 

Positionne 
le curseur 
à l'écran 

Impression 

d’un 

caractère 

Impression 
variable num. 
avec formatage 

Génération 
de nombres 
aléatoires 

Lecture des 
data 

Lignes 
ignorées 
par l'ordinateur 

Initialisation 
des lectures 
de data 

Fin de 
sons 

programme 

ORDINATEURS 

APPLE II* 

M TAB (x) 

V TAB (y) 

PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

ATARI 600 XL/800 XL/400/800 

POSITION x, y 

. PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

COMMODORE 64 

POS (x) 

PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

AMSTRAD 

LOCATE x. y 

PRINT" 

PRINT USING 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

ORIC I 

CURSOR x, y 

PRINT" 

PRINT USING 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

ZX 81 

PRINT AT x, y 

PRINT" 

PRINT USING 

RND (x) 

- 

REM 

— 

RETURN 

SPECTRUM 

PRINT AT x, y 

PRINT" 

PRINT USING 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

Tl 99/4A 

- 

PRINT" 

- 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

THOMSON - T07 

LOCATE x, y 

PRINT" 

PRINT USING 

RND (x) 

READx 

REM 

RESTORE 

RETURN 

MSX 

CURSOR x, y 

PRINT" 

PRINT USING 

RND (x) 

READ x 

REM 

RESTORE 

RETURN 

ORDRES BASIC 

Extrait les carnet. 

d'une chaîne 
alphanumérique 

Détecter si 
un point est 
allumé à l'écran 

Ligne 

d’une 

variable 

Sinus 

Racine 

carrée 

Arrêl 

en cours 
d'exécution 

Passage d'une 
variable numéq. 
en alphanuméq. 

Redéfinition et 
animation d'un 
dessin définitif 

ORDINATEURS 

APPLE U' 

RIGHTS (x$.y) 

SCRN (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xS) 

- 

ATARI 600 XL/800/XL 400/800 

- 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (x$) 

SPR1TE 

COMMODORE 64 

RIGHTS (xS,y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

srR$ (xS) 

POKE , 

AMSTRAD 

RIGHTJ (xï.y) 

TEST (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xï) 

- 

ORIC 1 

RIGHTS (x$,y) 

SCRN (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xî) 

- 

ZX 81 

RIGHTS (x$,y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xî) 

- 

SPECTRUM 

RIGHTS (xS,y) 

ATTR (x.y) 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xî) 

- 

TI 99/4A 

- 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xî) 

CALL SPR1TE 

THOMSON - T07 

RIGHTS (x$,y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xî) 

- 

MSX 

RIGHTS (xS.y) 

- 

SGN (x) 

SIN (x) 

SQR (x) 

STOP 

STRÎ (xî) 

SPRITE 

ORDRES BASIC 

Tangente 

Mode 

texte 


Horliior 

Fin 

de boucles 
conditionnelles 

Valeur numérique 
d'une chaîne 
alphanumérique 

Pause 

ORDINATEURS 

interne 

APPLE II' 

TAN (x) 

TEXT 

- 

- 

VAL (xJ) 

WAlTx 

ATARI 600 XI./800 XL/400/800 

TAN (x) 

GRAPHICS 

- 

— 

VAL (xS) 

— 


COMMODORE 64 

TAN (x) 

- 

TIS 

- 

VAL (xS) 

WAIT x.y.z 


AMSTRAD 

TAN (x) 

MODE x 

TIME 

UNTIL (x) 

VAL (x$) 

— 


ORIC 1 

TAN (x) 

TEXT 

- 

UNTIL (x) 

VAL (xS) 

WAlTx 

ZX 81 

TAN (x) 

— 

- 

— 

VAL (xS) 

PAUSE x 


SPECTRUM 

TAN (x) 

— 

— 

— 

VAL (xS) 

PAUSE x 


Tl 99/4 A 

TAN (x) 

— 

— 

— 

VAL (xS) 

— 


THOMSON - T07 

TAN (x) 

— 

— 

— 

VAL <x$) 

— 


MSX 

TAN (x) 

SCREEN 1.1 

TIME S 

- 

VAL (x$) 

- 
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Tl 99/4A 


SCRABBLE 

Découvrez les finesses du scrabble 
avec votre ordinateur 

qui remplace la table de jeu et compte les points. 
Pour jouer, entrez tout d'abord 
le nombre de lettres de votre mot; indiquez ensuite 
sa position, repérée par la première lettre, 
et donnez enfin le sens d'écriture. 



10 REM CE PROGRAMME VOUS PERMET DE JOUER AU SCRABBLE.-IL REMPLACE LA TABLE DE JE 

Z0 E REM CM VOUS L DEVEZ 1 D'ABORD ENTRER LE NOMBRE DE LETTRES DU MOT TEL QU'IL APPARAIT 

Dû CI |p [ ü pP Tl IC 

30 pFM ENTREZ ENSUITE VOTRE MOT PAR L'INTERMEDIAIRE DU CLAVIER 

4@ REM PUIS SA POSITION REPERE PAR LA PREMIERE LETTRE ET ENFIN LE SENS D E-RITU 

50 REM VERIFIEZ VOS REPONSESSI VOUS AVEZ COMMIS UNE ERREUR TAPEZ 'N' A LA DERNI 

60 E REM UE POUR PASSER AU JOUEURSUIVANT APPUYEZ SUR UNE TOU-CHE 

70 DATA 1,3,3,2,1,4,2,4,1,8,10/1,2,1,1,3,8,1,1,1,1,4,10,10,10,1 J/- 

80 DATA 10.-4/98/10/3/96/ 10/2/97/ 11/2/96.-12/2/99/12/3/96/12/4.--3.-13/4/96/14/4/100 

^^DATa"'!0 /8/98/ 10,7/96.. 10,6,97/11.-6,96,12,6,96, }3/|/96,14,6,99,14,£,96,14/8^100 
100 DATA 10/ 10/97, 11, 10.-96,12,10,96.-13,10,9&, 14,10,99,10/ 11/96,10/ 12,98,11,12. 9- 
110 DATA 12,12,100/12,11,96/13,11/99/13,12.98/14,12/99 

120 DATA 14,14,99,13,14,96,12,14,96/11/14,96/10/14/97,10/15,96,10,16,98,11,16,96 

130 DATA* 12, 16,96', 13,16,96,14,16,100,10, 13,97,11,18,96,12,18,96,13,13,96,14,18,9 

140 DATA 10,19,96,10,20,93,11,20,96,12,19,96,12,20,182,13,20,96,14,20,100,14,19, 

150 DATA 10,22,97,11,22,96,12,22,96,13,22,96/14,22/99,10,23,96,10,24,98,11,24,96 
160 DATA 12/23,96/12/24,102,13,24,96,14,24/100/14/23,96 

170 DATA 10,26,97,11,26,96,12,26,96,13,26,96,14,26,99,14,27,96,14,28,100 

130 DATA 10,32/98/10,31,96,10,30,97,11,30,96,12,30,96,12,31,96,lJ/30,96 

190 DATA 14,30,99,14/31,96,14,32/100,1,1,104 

200 CALL CLEAR 

210 CALL SCREEN<16) 

220 RANDOMIZE 

230 DIM A<27),SC<4),C#<4 ) 

240 RESTORE 
250 FOR 1=1 TO 27 
260 READ F 
270 A<I>=F 
230 NEXT I 

290 CALL CHARC46,"0000001818") 

300 GOSUB 1240 
310 D=20 

320 E=3 
















330 MS="SI VOUS VOULEZ LES REGLES " 

340 GOSUB 1820 
350 D=21 

360 MS®"TAPEZ FCTN 4 ,PUIS LIST 10-60" 
37R GOSUB 1820 

330 IHPUT "NOMBRE DE JOUEURS <2-4> ?"=N 
390 IF CNC1)+CN>4)THEN 380 
400 CflLL HCHRRC 24,1,32, 32 ) 

410 FOR 1=1 TO N 

420 PR INT "NOM DU JOUEUR No";I;"="; 

430 IHPUT CSCI> 

448 NEXT I 
450 GOSUB 1450 
460 IF H>1 THEH 470 
470 0=1 

480 CflLL HCHRRC18,1,32,220) 

490 8=0 
500 R=0 
510 dscü)="" 

520 SM1=0 
530 LM=1 
540 MM=1 
550 M1=1 
560 E=3 
570 D=18 
580 M*=CSCQ) 

590 GOSUB 1820 
600 0=20 
610 E=3 

620 M*="NOMBRE DE LETTRES DU MOT *" 

630 GOSUB 1820 
640 GOSUB 1860 
650 CflLL HCHRRC20,30,K) 

660 L=K-48 
670 D=21 
680 E=3 
690 MS="MOT :" 

700 GOSUB 1820 

710 FOR 1=1 TO L 

720 GOSUB 1860 

730 CflLL HCHRRC21,8+1,K) 

740 DSC 0)=D$<0)&CHRSCK) 

750 NEXT I 
760 D=22 
770 E=3 

780 MS®"POSITION CHor.,Vert. > 

790 GOSUB 1820 
800 GOSUB 1860 
810 CflLL HCHflRc: 22,27, K) 

820 H=K 

830 CflLL HCHflRc: 22,28,44 ) 

840 GOSUB 1860 

850 CflLL HCHflRc: 22, 29, K ) 

860 V=K 
870 D=23 
880 E=3 

390 MS®"SENS (H ou. V) • " 

900 GOSUB 1820 
910 GOSUB 1860 
920 KK=K 

930 CflLL HCHflR(23,19,K ) 

340 o=24 
950 E=3 

960 MS®"PRS D'ERREUR ?" 

970 GOSUB 1820 

980 GOSUB 1360 

990 IF K<>78 THEN 430 

1000 IF KK=72 THEN 1050 

1010 S=1 

1020 GOSUB 1890 

1030 GOSUB 1860 

1040 GOTO 1030 

1050 R=1 

1060 GOSUB 1390 

1070 GOSUB 1860 

1080 DSC 0 )="" 

1090 IF K=12 THEN 1140 
1100 0=0+1 

1110 IF 0<=N THEN 480 


1120 0=1 
1130 GOTO 480 

1140 CflLL HCHflRc: 19,1,32,160) 

1150 FOR J=1 TO H 
1160 D=20+J 
1170 E=3 

1180 MS= " SCORE DE "&CSC J >& " < " &STRSC SCC J > ) 

1190 GOSUB 1320 

1200 NEXT J 

1210 FOR 1=1 TO 500 

1220 NEXT I 

1230 GOTO 480 

1240 FOR 1=96 TO 128 STEP 8 

1250 CflLL CHRRC I, "FFFFFFFFFFFFFFFE" ) 

1260 NEXT I 

1270 CflLL CHflR(97,"0103070F1F3F7FFF") 

1230 CflLL CHRRC98,"80C0E0F0F8FCFEFF" ) 

1290 CflLL CHARC99,"FF7F3F1F0F070301" ) 

1300 CflLL CHflRC 100, "FFFEFCF8F0E0C08'0" ) 
1310 CflLL CHflRC102,"FFFEFCF8F8FCFEFF" ) 
1320 CflLL COLORC9,3,1 ) 

1330 FOR 1=1 TO 39 
1340 REflD RI,H2,R3 
1350 CflLL HCHflRCfll,A2,fl3) 

1360 CflLL SOUNDC fl1*12,H3*3,2,R3*4,2 > 

1370 NEXT I 
1380 D=24 
1390 E=18 

1400 MS="DV~VIDEO 81984" 

1410 GOSUB 1820 

1420 FOR 1=1 TO 1500 

1430 NEXT I 

1440 RETURN 

1450 FOR 1=1 TO 16 

1460 CflLL CLEfiR 

1470 CflLL COLORC1,1,1) 

1480 NEXT I 

1490 PRINT TABC 10);C-HRSC 65>; 

1500 FOR 1=66 TO 79 
1510 PR'INT CHRSCI); 

1520 NEXT I 
1530 PRINT 
1540 PRINT 

1550 PRINT TflBC10 );"' x ' x 
1560 PRINT TflBC 10);" h P P h " 

1570 PRIAT TflBC10);" h x x h " 

1580 PRINT TflBC10); "x h x h x" 

1590 PRIAT TflBC10);" h h 

1600 PRINT TflBC10);" P P P P " 

1610 PRINT TflBC 10);" x x x x " 

1620 FR INT TflBC 10); x h X 

1630 PRINT TflBC10);" x xx x " 

1640 PRINT TflBC10);" P P P P " 

1650 PRINT TflBC10);" h h 

1660 PRINT TflBC10); "x h x h x" 

1670 PRINT TflBC10);" h x x h " 

1680 PRINT TflBC10);" h P P h " 

1690 PRINT TflBC 10);"' x ' x 

1700 PRINT 

1710 FOR 1=3 TO 17 

1720 CflLL VCHFIRC 1,10, 1+62) 

1730 NEXT I 

1740 CflLL COLORC9,7,1) 

1750 CflLL COLORC10,10,1) 

1760 CflLL COLORC11,5,1 ) 

1770 CflLL COLORC12,6,1) 

1780 FOR 1=2 TO 8 
1790 CflLL COLORC1,2,1) 

1800 NEXT I 
1810 RETURN 

1820 FOR 1=1 TO LENCMS) 

1830 CflLL HCHflRC D,E+1,flSCCSËGSCMS,1,1))) 

1340 NEXT I 

1850 RETURN 

1860 CflLL KEYC 0,K,ET) 

1870 IF ET=@ THEN 1860 
1880 RETURN 
1890 FOR 1=1 TO L 
1900 LM=1 


27 







1910 K=fiSCC SEG3K D« 0 >. 1.1 > > 

1920 GOSÜB 2100 
1930 M1=M1*MM 
1940 MM=1 

1950 CflLL HCHflRC H-62 . V-53 .■ K > 

I960 V=V+R 
1970 H=H+S 
1930 NEXT I 
1990 sm2=smi*mi 
2000 SCC G >=SCCO>+SM2 
2010 SM2=0 
2020 Ml=l 
2030 D=24 

2050 M*="SCORE DE "8cC$C O )&" : "&STRSC SCC O 

2060 GOSÜB 1320 

2070 FOR 1=1 TO 1000 

2030 NEXT I 

2090 RETURN 

2100 CflLL GCHflRCH-62.V-53.TE> 

2110 GOTO 2150 

2120 IF CTE=32)+CTE>95)THEN 2150 
2130 SCl=flC K-64 ) 

2140 GOTO 2600 

2150 IF TEO120 THEN 2130 

2160 LM=2 

2170 GOTO 2260 

2130 IF TEC>112 THEN 2210 

2190 LH=3 

2200 GOTO 2260 

2210 IF TEO104 THEN 2240 

2220 NM=2 

2230 GOTO 2260 

2240 IF TE<>96 THEN 2260 

2250 MM=3 

2260 SC1=flC K-64 >T-LM 

2270 IF S=1 THEN 2630 

2280 IF IOl THEN 2370 

2290 HH=0 

2380 VV=-1 

2310 HW=0 

2320 VW=-1 

2330 S11=0 

2340 GOSÜB 2930 

2350 SM1=SM 

2360 GOTO 2460 

2370 IF IOL THEN 2460 

2330 HH=0 

2390 VV=1 

2400 HW=@ 

2410 VW=1 
2420 SM=0 
2430 GOSÜB 2930 
2440 SM1=SM1+SM 
2450 GOTO 2600 
2460 HH=-1 
2470 W=0 
2480 HU=-1 
2490 VW=0 
2500 SM=0 


2510 GOSÜB 2930 

2520 HH=1 

2530 VV=0 

2540 HH=1 

2550 VW=0 

2560 GOSÜB 2980 

2570 IF SM=0 THEN 2600 

2580 SCC O)=SCC O>+C SM+SC1>*MM 

2590 SM=0 

2600 SM1=SM1+SC1 

2610 SC1=0 

2620 RETÜRN 

2630 IF IOl THEN 2720 

2640 HH=-1 

2650 VV=0 

2660 HW=-1 

2670 VH=0 

2680 SM=0 

2690 GOSÜB 2980 

2700 SM1=SM 

2710 GOTO 2810 

2720 IF IOL THEN 2810 

2730 HH=1 

2740 VV=0 

2750 HW=1 

2760 VW=0 

2770 SM=@ 

2780 GOSÜB 2930 
2790 SM1=SM1+SM 
2800 GOTO 2950 
2810 HH=@ 

2320 VV=-1 

2830 VW=—1 

2840 HW=0 

2850 SM=0 

2360 GOSÜB 2930 

2870 HH=0 

23S0 VV=1 

2390 VH=1 

2900 HW=0 

2910 GOSÜB 2980 

2920 IF SM=0 THEN 2950 

2930 SCC O >=SCC0)+C SM+SC1)*MM 

2940 SM=0 

2950 SM1=SM1+SC1 

2960 SC1=0 

2970 RETÜRN 

2980 Hl=H-62+HH 

2990 V1=V—53+VV 

3000 CflLL GC-HflRC H1.V1.TE) 

3010 IF TE046 THEN 3050 
3020 VV=VV+VW 
3030 HH=HH+HH 
3040 GOTO 2980 

3050 IF C TEC65)+CTE>90)THEH 3100 
3060 SM=SM+flCTE-64 ) 

3070 W=VV+VU 
3030 HH=HH+HU 
3090 GOTO 2980 
3100 RETÜRN 


COMMENTAIRES : 

Ligne 10 à 60 : explication du jeu 
Ligne 70 à 190 : datas de la grille 
Ligne 200 à 320 : initialisation des 
uariables 

Ligne 330 à 370 : voulez-uous les règles 
du jeu ? 

Ligne 380 à 440 : choix du nombre de 
joueurs, puis entrée des prénoms 
Ligne 450 à 1230 : programme principal 
avec entrée du mot 

Ligne 1240 à 1310 : redé-f i n i t i on des 
caractères 


Ligne 1320 à 1440 : 
d'a-f-f ichage du mot 
Ligne 1450 à 1810 ! 
dessin de la grille 
Ligne 1820 à 1850 : 
d' a-f -f i chage 
Ligne 1860 à 1880 : 

Ligne 1890 à 2090 : 

Ligne 2100 à 2250 : 

touches du curseur 

Ligne 2260 à 2620 : 

jeu 

Ligne 2630 à 3100 : 
calcul du score. 


sous programme 

sous programme de 

sous programme 

test du clavier 
at-f ichage du scor 
reconnaissance de 

sous programme de 

sous programme de 
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- Tl 99/4A - 

STAR WALL 

Un mur galactique avance inexorablement vers vous. 
Détruisez-le avant de vous faire écraser. 

Les curseurs'servent à vous diriger et la barre d'espace 

à tirer... 



5 REM-STAR WALL- 

6 REM- 

10 CflLL CLERR 

20 CflLL SCREENC5) 

30 CflLL CHflRC128,"F8403C7F7F3C40F8"> 
40 CflLL CHRRC129,"000000FFFF000000" ) 
50 CflLL CHflRC136,"FFFFC3DBDBC3FFFF") 
60 CflLL COLORC13,8,5) 

70 CflLL COLORC14,11,2) 

"MOUVEMENTS : TOUCHES CURSEUR" :: 
30 PRINT " STAR WALL" — = :::1 

ESPACE POUR TIRER"= 

89 PRINT • 

90 INPUT "DIFFICULTE (1-5) " : D 

91 SC=0 

95 IF D>5 THEN 90 

96 IF D<1 THEN 90 

97 D=INTCD-l)*2+5 

98 X=20 

99 CALL CLEAR 

100 HT= INT(RHD#15+5) 

104 CflLL CLEAR 

105 PRINT "SCORE = ";SC; 

110 FOR P=32 TO D+l STEP -1 
120 CALL VCHAR(23-HT,P,136,HT) 

130 CflLL HCHAR(X,D,128) 

135 DX=0 

140 CALL KEY(4,C,T ) 

150 IF C<>69 THEN 200 
160 DX=(X>12) 

170 GOTO 400 

200 IF C< >88 THEN 250 

210 DX=-(X<22) 


220 GOTO 400 

250 IF C<>32 THEN 400 

270 GOSUB 300 

230 GOTO 400 

300 CflLL SOUND(50,-5,20) 

305 FOR I=D+1 TO p STEP 2 
310 CflLL HCHAR(X,1-2,32) 

320 CflLL HCHARCX,1,129) 

330 NEXT I 

340 CflLL HCHflR(X,1-2,32) 

350 IF X<23-HT THEN 380 
360 HT=HT-1 
365 IF HT>0 THEN 375 
370 HT=1 

375 CflLL SOUND<100,-7,10) 

376 SC=SC+1 NT( HT*< 33-P )/ 10 )*< D+1 ) 

330 RETURN 

400 CflLL HCHflRCX,D,32) 

410 CflLL VCHflR(22-HT,P,32,HT+1) 

420 X=X+DX 
430 NEXT P 

440 IF X<23-HT THEN 100 

444 CflLL CLEAR 

445 FOR 1=0 TO 30 

446 CflLL SOUNDC 40,-6,1) 

447 CflLL SCREENCINT(1/2+1 )) 

448 NEXT I 

449 CflLL SCREENC5) 

460 PRINT "SCORE FINAL = "jSC 

470 PRINT !• ! "UNE AUTRE PARTIE CO/N) " 

480 INPUT fl* 

490 IF fl$="0" THEN 98 
500 IF fl*< >"N" THEN 470 


COMMENTAIRES : 

Ligne 5 à 20 : initialisation des 
e variables 

5 Ligne 30 à 50 : redéfinition des 
caractères graphiques 
Ligne 60 à 99 : présentation du jeu 
Ligne 100 à 135 : routine principale 
première partie 
Ligne 140 : test du clavier 


Ligne 150 à 170 : changement 
direction à gauche 
Ligne 200 à 220 : changement de 
direction à droite 


Ligne 250 à 280 : 
Ligne 300 à 380 : 
gestion du tir 
Ligne 400 à 440 : 
seconde partie 
Ligne 444 à 500 : 


de 
d 

détection du tir 
sous programme de 

routine prineipale 

■fin de part i e 
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__— 77 99/AA - 

OTHELLO 

Pions noirs et pions blancs s'affrontent; 
Placez l'un des vôtres 

à chaque extrémité d'une droite ou d'une diagonale 
et annexez purement et simplement 
les pions qui se trouvent ainsi encerclés. 

Pour placer un pion, entrez ses coordonnées, 
l'ordinateur se charge du reste. 


130 CflLL CLEflR 

730 EDL=2+2*I 

140 CRU- SCREENC14) 

740 EDC=7 

150 FOR 1=1 T0 8 

750 BRRS=CHRSC 64+1) 

160 CFlLL COLGRC 1,12,14) 

760 GOSUB 1820 

170 NEXT I 

770 NEXT 1 

180 GOSUB 1810 

780 BRRS="LIGNE = N" 

190 CRU. CLEflR 

790 EDL=22 

200 BRRS="PHTIENCE" 

300 EDC=12 

210 EDL=24 

S10 GOSUB 1820 

220 EDC=3 

820 BflR*="COLONNE= B" 

230 GOSUB 1820 

830 EDL=24 

240 FOR 1=112 T0 115 

840 EDC=12 

250 CflLL CHflR< I, " " ) 

350 GOSUB 1820 

260 NEXT I 

890 BftRS= JS'; TRRIT+2 > 

270 NB=1 

900 EDL=22 

280 TRflIT=-l 

910 EDC=6 

320 CflLL C0L0R<10,2,4) 

920 GOSUB 1820 

330 CflLL C0L0R(11,2,4) 

930 IF TRRIT=PREN THEN 2900 

340 CflLL C0L0RC12,16,4) 

940 CRLL GCHRRC 22,22,VRR) 

350 CflLL CHflROS, "00000000000000FF" ) 

950 CflLL HCHARC 22,22,96) 

360 FOR 1=104 T0 120 STEP 16 

960 CflLL HCHARC22,22,VRR) 

370 CflLL CHARCI,"00000F1F3F3F3F3F-) 

970 CflLL KEY<0,KEŸ,ST) 

330 CflLL CHAR<1+1,"3F3F1F0F0000FFFF") 

980 IF ST=0 THEN 950 

390 CflLL CHflRC1+2,"0303C3E3F3F3F3F3" ) 

990 IF KEY=13 THEN 1150 

400 CflLL CHARC1+3,"F3F3E3C30303FFFF") 

1000 IF KEY<65 THEN 950 

410 NEXT I 

1010 IF KEY>72 THEN 950 

420 CRLL CHARt112,"") 

1020 JL-KEY-64 

430 CflLL CHARC113,"000000000000FFFF 1 ) 

1030 CRLL HCHflR< 22,22,KEY) 

440 CflLL CHflR<114,"0303030303030303"> 

1040 CflLL GCHRRC 24,22,VRR) 

450 CflLL CHFIRC 115, "030303030303FFFF" ) 

1050 CflLL HCHflRC24,22,96) 

460 DIM MflTC 8,8), INCL<8),MflXL<8), INCC(8)»MRXCC8>, 

1060 CflLL HCHflRC 24,22,VRR) 

J5C 3 ), NBP10N< 3 ), VU 3,8 PSC 8,8 ) 

1070 CflLL KEY(0,KEY,ST) 

470 RESTORE 1900 

1030 IF ST=0 THEN 1040 

430 FOR 1=1 T0 8 

1090 IF KEY=13 THEN 1150 

490 RE AD INCLC I >,MRXLC I ), INCCC I >,MRXC< I ) 

1100 IF KEY<48 THEN 1040 

500 NEXT I 

1110 IF KEY>56 THEN 1040 

510 J*<1)»"N0IR " 

1120 JC=KEY-48 

520 J*(3)="BLRNC" 

1130 CRLL HCHHRC 24,22,KEY ) 

560 NBPIONC1 )=2 

1140 GOTO 940 

570 NBPIQNC 3)=2 

1150 REM 

530 riflT< 4,4 )=-l 

1160 REM 

590 MflTC 4,5 .>= 1 

1170 REM 

600 MRTC5,4)=1 

1180 OK=0 

610 MflT<5,5)=-l 

1190 IF JCO0 THEN 1220 

620 CRLL CLEflR 

1200 PRSS=PRSS+1 

630 FOR L=1 TO 8 

1210 IF PRSS=2 THEN 3330 ELSE 1640 

640 FOR C=1 TO 3 

1220 IF MflTCJL,JC)<>0 THEN 890 

650 GOSUB 1730 

1230 L=JL 

660 NEXT C 

1240 C=JC 

670 NEXT L 

1250 MflTCL,C)=TRRIT 

680 BfiRS=" 12345678" 

1260 GOSUB 1730 

690 EDL=1 

1270 FOR D=1 TO 8' 

70@ EDC=9 

1280 L=JL 

710 GOSUB 1820 

1290 C=JC 

720 FOR 1=1 TO 8 




30 













1300 L=L+INCL< D > 

1310 IF L=MRXLCD1THEN 1500 
1320 C=C+INCC<D> 

1330 IF C*MflXC<D JTHEN 1500 

1340 IF MflTC L, C 1=0 THEN 1500 

1350 IF MflTC L,CX>TRFIIT THEN 1300 

1360 XC=C 

1370 XL=L 

1380 L=JL 

1390 C=JC 

1400 L=L+INCLCD1 

1410 C=C+INCCCD> 

1420 IF LOXL THEN 1440 
1430 IF C=XC THEN 1500 
1440 MflTC L, C l'=MATC L, C >*C-1 > 

1450 HBPION<TRHIT+25-NBPIONC TRflIT+2 >+l 

1460 NBP1ONC < TRfl I T*-1 >+2 >=NBP 1ONC C TRRI T*- 0+21-1 

1470 GOSUB 1730 

1480 0K=1 

1490 GOTO 1400 

1500 NEXT D 

1510 IF 0K=1 THEN 1570 

1520 L=JL 

1530. C=JC 

1540 MflTC L, 0=0 

1550 GOSIJB 1730 

1560 GOTO 890 

1570 REM 

1580 REM 

1590 REM 

1600 NB=NB+1 

1610 PFISS=0 

1620 GOSUB 3200 

1630 NBPIONC TRHIT+2>=NBPION<TRHIT+2>+l 

1640 TRfl I T=TRFI I T:SC -11 

1650 FOR 1=1 TO 3 STEP 2 

1660 EDL=21+I 

1670 EDC=30 

1680 BRRS=STR$CNBPIONC1>>&" " 

1690 GOSUB 1*820 
1700 NEXT I 

1710 IF NB<61 THEN 890 
1720 GOTO 3330 
1730 FOR LL=1 TO 2 
1740 FOR CC=1 TO 2 

1750 CRLL HCHHRC2#L+LL,2*C+CC+6,109+LL+2*CC+8*MHTC 

L,C)> 

1760 NEXT CC 
1770 NEXT LL 
1780 RETURN 
1820 REM 

1830 FOR CC=EDC TO EDC+LENC BARS >-1 

1840 CRLL HCHRRCEDL,CC,HSCCSEG$CBflR$,CC-EDC+l,l>>> 

1850 NEXT CC 

1860 BflRS="" 

1870 RETURN 

_1900 DATA 0,9-1,9,-1,0.1,9,-1,0,0,9,-1,0,-1,0,0.9, 
-1,0,1,9,-1,0,1,9,0,9,1,9,1,9 
1910 BRR*="BONJOUR" 

1920 EDL=1 
1930 EDC=12 
1940 GOSUB 1820 

1950 BRR*="JE M'APPELLE TI-99R" 

I960 EDL=5‘ 

1970 EDC=3 
1980 GOSUB 1820 

1990 BflRS="JE VOUS PROPOSE DE JOUER fl" 

2000 EDL=8 
2010 EDC=3 
2020 GOSUB 1820 
2038 BflR$="'OTHELLO'" 

2040 EDL=10 
2050 EDC=12 
2060 GOSUB 1820 

2070 BRRS="INDIQUEZ VOS COUPS PAR LEURS" 

2080 EDL=12 

2098 EDC=3 

2100 GOSUB 1820 

2110 BHR$="COORDONNEES >“ 

2120 EDL=14 
2130 EDC=3 
2140 GOSUB 1820 

2150 BARS="LIGNE CDE fl a H)" 

2160 EDL=16 
2170 EDC=7 
2130 GOSUB 1820 

2190 BflRS="COLONNE C DE 1 a 8V‘ 


2200 EDL=18 
2210 EDC=7 
2220 GOSUB 1820 

2230 BflR*="PUIS FRITES 'ENTER'" 

2240 EDL=20 
2250 EDC=3 
2260 GOSUB 1820 

2270 BflRS=“POUR PASSER METTRE 0 DANS LH" 

2280 EDL=22 
2290 EDC=3 
2300 GOSUB 1820 
2310 BRRS="COLONNE" 

2320 EDL=24 
2330 EDC=3 
2340 GOSUB 1820 
2350 FOR DEL=1 TO 1000 
2360 NEXT DEL 

2370 CflLL HCHRRC8,1,32,522 ) 

2380 BHR*="JOUEZ-VOUS ENTRE VOUS <1>" 

2390 EDL=8 

2480 EDC=3 

2410 GOSUB 1820 

2420 BflRS="OU CONTRE MOI C2>" 

2430 EDL=10 
2440 EDC=11 
2450 GOSUB 1820 
2460 PREM=0 

2470 CflLL KËY<0,KEY,ST> 

2480 IF ST=0 THEN 2470 
2490 1F KEY=49 THEN 2700 
2500 IF KEYO50 THEN 2470 
2510 CflLL HCHRRC 8,3,32,96) 

2520 GOSUB 2716 

2530 BAR*=“QIII COMMENCE > VOUS (1)" 

2540 EDL=3 

2550 EDC=3 

2560 GOSUB 1820 

2570 BflRS="OU MOI C2>" 

2530 EDL=10 
2590 EDC=16 
2600 GOSUB 1820- 
2610 PREM=1 

2620 CflLL KEYC0,KEY,ST> 

2630 IF ST=0 THEN 2620 
2640 IF KEY=49 THEN 2700 
2650 IF KEYO50 THEN 2620 
2660 PREM=-1 
2700 RETURN 

2710 DATA 16,-4,4,2,-4,-12,-2,-2,4,-2,4,2,2,-2,2,0 

2720 RESTORE 2710 

2730 FOR 1=1 TO 4 

2740 FOR J=1 TO 4 

2750 RERD VLCI,J> 

2760 VLC9-I,J)=VLCI,J> 

2770 VL< 1,9-J )=VLC I, J ) 

2780 VLC 9-1,9-J >=VLCI,J ) 

2790 PSC1+2,J+2 )=1 
2800 NEXT J 
2810 NEXT I 
2820 PSC 4,4 >=2 
2830 PSC4,5)=2 
2840 PSC 5,41>=2 ' 

2850 PSC 5,5 >=2 

2860 RETURN 

2900 REM 

2910 REM 

2920 REM 

2930 MflX=-16 

2940 JC=0 

2950 JL=1 

2960 FOR L=1 TO 8 

2970 FOR C=1 TO 8 

2980 IF PSC L,C X >1 THEN 3140 

2990 FOR D=1 TO 3 

3000 XL=L 

3010 XC=C 

3020 XL=XL+INCLC D1 

3030 IF XL=MHXLC D )THEN 3130 

3040 XC=XC+INCCC D) 

3050 IF XC=MHXCC D1THEN 3130 

3060 IF MATC XL,XC >=0 THEN 3130 

3070 IF MHT C XL,XC X >TRRIT THEN 3020 

3080 IF MATC L+1NCLC D),C+1NCCC D)K >-TRAIT THEN 3130 

3090 IF VLCL.CXMHX THEN 3130 

3100 MRX=VLCL,C> 

3110 JC=C 
3120 JL=L 
3130 NEXT D 
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3330 REM 
3340 REM 
3350 REM 

3360 FOR L=1 TO 8 
3370 FOR C=1 TO 8 
3380 nfïï«L,C)=0 
3390 PSC L, 0=0 
3400 NEXT C 
3410 NEXT L 

3420 CFlLL HCHRRC 22,1,32,96 > 

3430 BflR#="VOULEZ-VOUS REJOUER ? CO-N>" 

3440 EC>L=22 

3450 EDC=3 

3460 GOSUB 1820 

3470 CFlLL KEYC0,KEY,ST> 

3480 IF ST=Ü THEN 3470 
3490 1F KEY=79 THEN 130 
3500 IF KEYOT8 THEN 3470 
3510 CflLL CLEflR 


3140 NEXT C 
3150 NEXT L 

3160 CflLL HCHARC 22,22,JL+64> 
3170 CflLL HCHflR< 24,22,JC+48 > 
3180 CflLL SOUNDC100,880,1> 

3190 GOTO 1150 

3200 REM 

3210 REM 

3220 REM 

3230 PS(JL,JC>=2 

3240 FOR D=1 TO 8 

3250 XL=JL+INCL(D) 

3268 IF XL=MflXL<D >THEN 3310 
3270 XC=JC+INCCCD> 

3280 1F XC=MflXC<D>THEN 3310 
3290 IF PS<XL,XC)<>0 THEN 3310 
3300 PSC XL, XC >=1 
3310 NEXT C' 

3320 RETURN 


COMMENTAIRES : 

Ligne 130 à 340 : initialisation de 
1'écran 

Ligne 350 à 450 s redéfinition des 
caractères graphiques 
Ligne 460 à 920 : initialisation des 
variables 


Ligne 930 à 1140 s 
Ligne 1200 à 1870 : 
Ligne 1900 à 2700 : 
Ligne 2710 à 3190 : 
1'ordinateur 
Ligne 3230 à 3320 : 
d'analyse 

Ligne 3360 à 3510 : 


test du clavier 
affichage des pions 
présentation du jeu 
réflexion de 

sous programme 

fin de la partie 


_ 77 99/4A - 

INVERSES 

Blanchissez un carré de trois cases sur trois 
en choisissant parmi les huit combinaisons possibles. 
Pour jouer, pressez simplement le chiffre 
correspondant à votre choix. 



5 REM-MflGI CARRE- 

6 REM- 

9 CFlLL CLEAR 

10 FOR 1=7 TO 15 

20 CflLL CHAR<1*8+24,"FFFFFFFFFFFFFFFF” > 
30 NEXT I 
40 DIM FK 3,3 > 

45 RRNDOMIZE 

50 CX=3 

51 CC=0 

55 FOR 1=1 TO 3 
60 FOR J=1 TO 3 
70 FK I,.J >= INTC RNDS2+1 > 

30 NEXT J 
90 NEXT I 
95 CflLL CLEFIR 

93 PRINT "123"•"456">"739"= !!:!!!!:!: 
100 FOR 1=1 TO 3 


110 

120 

130 

140 

150 

200 

210 

220 

230 

240 

245 

246 
248 
250 
252 
254 
256 
260 


;fll_L HCHflRC 5+3* 1,10+3* J, C J+1 *3+3 >*8+24,2 > 
:RLL HCHflRC 6+3*1,10+3*J,< J+I*3+3>*8+24,2 > 
EXT J 
JEXT I 

•OR 1=1 TO 3 
•OR J=1 TO 3 

:flLL COLORC J+1*3+3, FK I, J >*2+7,4 > 

4EXT J 
EXT I 


FOR 1=1 TO 3 

FOR J=1 TO 3 

IF FK I,J >< >X THEN 260 

NEXT J 

NEXT I 

GOTO 300 

CflLL KEYC4,C,T> 
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265 IF T=@ THEN 260 

266 IF C<49 THEN 260 

267 IF 057 THEN 260 

271 CXCX+1 

272 IF CX<33 THEN 275 

273 CX=3 

274 CflLL HCHflRC1,1,32,32? 

275 CflLL SOUNDC10Q.440.5) 

276 CC=CC+1 

278 CflLL HCHARCl.CX.C) 

280 ON C-48 GOSUB 300-350/400.450.500.550.600 

- 650.700 

290 GOTO 200 

300 FOR 1=1 TO 2 

305 FOR J=1 TO 2 

310 flCI.J)«fKI-J>+l 

320 IF fl< I. J X5 THEN 340 

330 FK I. J )= 1 

340 NEXT J 

341 NEXT I 
345 RETIJRN 

350 FOR 1=1 TO 3 

355 fl< 1.1 )=FK 1.1 )+l 

360 IF fl< 1.1X5 THEN 390 

370 FK 1.1 )=1 

390 NEXT I 

395 RETIJRN 

400 FOR 1=1 TO 2 

405 FOR J=2 TO 3 

410 fKI. J)=FK I. J)+l 

420 IF FKI.JX5 THEN 440 

430 FK I. J)=l 

440 NEXT J 

441 NEXT I 
445 RETIJRN 

450 FOR 1=1 TO 3 

455 FK 1.1 )=FK I -1 >+l 

460 IF FK 1.1X5 THEN 480 

470 FK 1.1)=1 

480 NEXT I 

490 RETIJRN 

500 FOR 1=1 TO 3 

505 FOR J=1 TO 3 

510 FK I. J )=fl< I. J )+1 


515 IF fl(I.JX5 THEN 530 

520 FK I. -J )= 1 

530 NEXT J 

535 NEXT I 

540 RETIJRN 

550 FOR 1=1 TO 3 

560 fl(I,3)=FKI.3)+l 

570 IF FK 1.3X5 THEN 580 

575 FK 1.3)=1 

580 NEXT I 

590 RETIJRN 

600 FOR 1=2 TO 3 

610 FOR J=1 TO 2 

615 FK I. J >=FK I. J )+1 

620 IF FKI.JX5 THEN 630 

625 FK I.J)=1 

630 NEXT J 

635 NEXT I 

640 RETIJRN 

650 FOR 1=1 TO 3 

660 FK 3.1 )=FK 3.1 )+l 

670 IF FK3.1X5 THEN 680 

675 FK 3.1 )=1 

680 NEXT I 

690 RETIJRN 

700 FOR 1=2 TO 3 

705 FOR J=2 TO 3 

710 FK I. J)=FK I. J)+l 

720 IF FKI.JX5 THEN 730 

725 FKI.J>=1 

730 NEXT J 

735 NEXT I 

740 RETIJRN 

800 FOR 1=0 TO 20 

805 CflLL SOUND 1 :50.300. 5) 

810 NEXT I 

815 FOR 1=1 TO 16 

816 CflLL C0L0RU.2.4) 

817 NEXT I 

820 PRINT "BRAVO ! GAGNE EN " ; CC;"ESSAIS" 
830 PRINT ••:" UNE AUTRE <0/N> " ;■ 

840 INPUT fl* 

850 IF Fl*="0" THEN 50 

860 IF fl*<>"N" THEN 830 


COMMENTAIRES : 
Ligne 10 à 30 : 
carac tères 
Ligne 40 à 51 : 
variables 
Ligne 55 à 90 : 


redéfinitions des 
initialisation des 
tirage aléatoire des 


cases 

Ligne 100 à 254 
Ligne 260 à 267 
Ligne 270 à 817 
de l'aff i chage 
Ligne 820 à 860 

77 99/AA - 


CRYPTO-DRAME 


affichage de l'écran 
test du clavier 
choix par l'ordinateur 

voulez-vous rejouer ? 


Un message codé apparaît sur votre écran. 
Utilisez les quatre touches 
du curseur pour découvrir le mystère qui l'entoure. 


10 CflLL SCREEN(12) 

100 CflLL CLEflR 
110 DATA "0000003F3F30303F". 
120 DATA "000000F0F81813F8". 
130 DATA "000000F0F8181318". 
140 DATA "0363636363000000". 
150 DATA "8303030301000000". 
160 DATA "0000000073444463". 
170 DATA ,L 00000000DE5050D0 ". 
180 DATA "2020203300000000". 
130 DATA "5A4A4A7A00000000". 


"0000000F3F8C8C0F". 
"00000080C0406020". 
"3F30303F3F000000". 
"F818181818000000". 
"181818FSF0000000". 
"0000000070202020". 
"00000200D7B49437". 
"4141417600000000". 
"5652525E00000000". 


"000000C1E32323C3" 
"000000216343C383" 
"8F8C8C8C0C000000" 
"31111B0E0E000000" 
"0000010233202020" 
"000000007E424243" 
"0080000080000000" 
" 2020202000000000 " 
» 9494949700000000 " 
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200 FOR 1=36 TÇl 122 
210 READ fl* 

220 CALL CHAR'; I, R* > 

230 HEXT I 

240 PRINT TABC6 ) : "LE MESSAGE SECRET" 

250 PRINT > = > « 

260 PRINT "VOUS DEVEZ DECOUVRIR UN MES-" 

270 PRINT 

280 PRINT "SAGE .POUR CELFI UTILISEZ LES" 

230 PRINT 

300 PRINT "TOUCHES =E.X.S.D" 

310 PRINT 

320 PRINT "ELLES VOUS PERMETTENT DE DE-" 

330 PRINT "PLACER LES ELEMENTS DU PUZ- ZLE.A 
LA MANIERE DU JEU CON NU SOUS LE NO 
M DE TAQUIN" 

340 PRINT 

350 PRINT "BON COURAGE!!..." 

360 PRINT 

370 PRINT "EN CAS DE SECHE TAPEZ 'FCTN AID'" 
330 FOR 1=1 TO 1000 
330 NEXT I 
400 DIM BC23) 

410 FOR 1=0 TO 26 

420 B<I)=96+I 

430 NEXT I 

440 CALL CLEAR 

450 CALL CÜLÜRC3.5.1) 

460 CALL CÛLORC10.7.1) 

470 CALL COLORC11.14.1) 

430 CALL COLORC12.13.1) 

435 CALL SCREEN<12) 

430 FOR X=@ TO 26 

510 RANDOniZE 

520 J=INT<C 23-X)*RND ) 

530 L=INT<X^7> 

540 C=X-?*L 

550 CALL HCHAR< 8+L.12+C.B< J > > 

560 FOR K=J TO 27-X 
570 BC K )=BC K+l ) 

530 HEXT K 
530 NEXT X 


COMMENTAIRES : 


Ligne 10 à 100 : initialisation de 
1 ''écran 

Ligne 110 à 190 : datas des caractères 
Ligne 200 à 230 : redé-f i n i t i on des 
caractères 

Ligne 240 à 390 : présentation du jeu 


600 Y=11 
610 Z=13 

620 CALL HCHARC Y.Z.30) 

630 CALL KEYC0.K.S) 

640 IF SO0 THEN 670 
650 CALL HCHARC Y.Z.32) 

660 GOTO 620 

670 IF K<>63 THEN 720 

680 CALL GCHARC Y-1.Z.M) 

690 CALL HCHARCY.Z.M) 

700 Y=Y—1 

710 GOTO 620 

720 IF K< >83 THEN 770 

730 CALL GCHARCY+l.Z.M > 

740 CALL HCHARCY.Z.M) 

750 Y=Y+1 

760 GOTO 620 

770 IF K< >68 THEN 820 

780 CALL GCHARCY.Z+l.M) 

790 CALL HCHARCY.Z.M) 

800 Z=Z+1 

810 GOTO 620 

820 IF K< >83 THEN 870 

830 CALL GCHARC Y.Z-l.M ) 

840 CALL HCHARCY,Z.M) 

850 Z=Z-1 

860 GOTO 620 

870 IF KOI THEN 620* 

880 fl*=" IL Y A COMBINAISONS!!" 

330 N*="PERSEVEREZ..." 

900 REM 

910 FOR 1=1 TO 27 

920 CALL HCHARC 23.1+3. ASCCSEGSCfl*.1. 1 ))) 

930 NEXT I 

940 FOR 1=1 TO 13 

950 CALL HCHARC 24.1+3.ASCC SEG*C N*.1.1)) ) 
960 NEXT I 

370 FOR 1=300 TO 350 

930 CALL SOUNDC-50.1.0.1+500.2) 

990 NEXT I 

1000 CALL HCHARC23.1.32.50) 

1010 GOTO 620 


Ligne 400 à 610 : a-f-fichage du message 
codé 

Ligne 620 à 660 : test du clavier 
Ligne 670 à 710 : première direction 
Ligne 720 à 760 : seconde direction 
Ligne 770 à 810 s troisième direction 
Ligne 820 à 860 : quatrième direction 
Ligne 880 à 1010 : indice donné par 
l'ordinateur 
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- Tl 99/4 A - 

TOUS EN FORME... 

Créez une forme et obtenez immédiatement ses codes. 
Vous pourrez ensuite les implanter 
dans un autre programme en Basic. 

Utilisez les quatre touches d'édition pour vous diriger, 

I pour le marquage d'un carré, 

O pour son effacement et F pour arrêter. 



100 CflLL CLERR 

110 PRINT "CREPITIONS DE FORMES" 

120 DIM FK8..8>,H$C15> 

130 CflLL CHflRC129."0000001818000000") 

140 CflLL CHflRX 130."007E7E7E7E7E7E00") 

150 CflLL CHARU31. "003838546C54383800" > 

160 DATA 0,1.2#3/4/5.6.7.8.9.fl.B.C.D.E.F 
170 FOR N=0 TO 15 
180 REflD H$< N > 

190 NEXT N 
208 REM 

210 CflLL CLEflR 

220 INPUT "VOULEZ-VOUS CREER UNE FORME <0/N>?"=RÏ 
230 IF R$="0" THEN 270 
240 IF R$="N" THEN 1060 

250 GOTO 220 ____ 

270 PAINT :"E S D Y, DEPLACEMENTS 1 MARQUAGE D'UN CARRE 0 EFFA 

CEMENT F FIN" 

280 L=3 
290 C=10 
300 GÜSUB 1080 
310 REM 

320 IF fl< L-2.C-9 >=1 THEN 350 
330 CflLL HCHARC L.C.88 ) 

340 GOTO 360 

350 CflLL HCHPIRX L.C.131) 

360 DL=0 
370 DC=0 

380 CflLL KEY<4.CAR.NOUV> 

390 IF NOUV=0 THEN 380 
400 IF CAR049 THEN 450 
410 FK L-2.C-9)=1 
420 CflLL HCHAR< L.C.131) 

430 DC=1 

440 GOTO 620 

450 IF CAR048 THEN 500 

460 fl<L-2.C-9)=0 

470 CflLL HCHARCL.C.129) 

480 DC=1 
490 GOTO 620 
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a 


500 

IF CRR=70 THEN 780 


510 

IF CRR=69 THEN 550 


520 

IF CRR=83 THEN 570 


530 

IF CRR=68 THEN 590 


540 

IF CRR=88 THEN 610 


550 

DL=-1 


560 

GOTO 620 


570 

DC=-1 


580 

GOTO 620 


590 

DC=1 


600 

GOTO 620 


610 

DL=1 


620 

IF RC L-2,C-9)=1 THEN 

650 

630 

CRLL HCHRRCL,C,129) 


640 

GOTO 670 


650 

CflLL HCHRRCL,C,130) 


660 

REM 


670 

LF=L+DL 


680 

CF=C+DC 


690 

IF CF<10 THEN 320 


700 

IF CF<=17 THEN 730 ' 


710 

CF® 10 


720 

LF=LF+1 


730 

IF LF<3 THEN 320 


740 

IF LF>10 THEN 320 


730 

L.=LF 


760 

C=CF 


770 

GOTO 320 


780 

REM 


790 

CH$="" 


800 

CflLL CLEflR 


810 

PRINT "CODAGE DE Lfl 

FORME 


820 PRINT 
830 PRINT 
850 FOR 1=1 TO 8 
860 F=0 

870 FOR J=1 TO 4 
880 F=2*F+fl<I,J) 

890 NEXT J 

900 CH*=CHS&HSCF ) 

910 F=0 

920 FOR J=5 TO 8 
930 F=2*F+fl<I, J ) 

940 NEXT J 

950 CH$=CH$8<H$< F ) 

960 NEXT I 
970 REM 

980 PRINT : TRB<10);CH* 

990 CRLL CHflRC132/CH*> 

1000 PRINT : "CE QUI DONNERA Lfl FOR 
ME SUIVANTE *" 

1010 FOR K=1 TO 14 
1020 PRINT 
1030 NEXT K 

1045 CRLL HCHRRC10,15,132) 

1060 STOP 

1070 REM - 

1080 FOR 1=3 TO 10 
1090 FOR -J= 10 TO 17 
1100 CRLL HCHRRCI,J,129) 

1110 AC1-2,C-9)=0 
1120 NEXT J 
1130 NEXT I 
1140 RETURH 


CEMENTAI RES : 

Ligne 100 à 120 : initialisation des 
variables du programme 
Ligne 130 à 150 : redéfinition des 
caractères graphiques 

Ligne 160 à 190 ; création d'un tableau 
des chiffres hexadécimaux 
Ligne 200 à 270 : présentation du 
programme 

Ligne 280 à 300 i initialisation de 


variables 

Ligne 310 à 490 : routine principale 
première partie 

Ligne 500 à 610 : test du clavier pour 
le changement de direction 
Ligne 620 à 790 : routine principale 
seconde partie 

Ligne 800 à 1060 : codage de la -forme 
Ligne 1080 à 1140 : a-f-fichage du 
caractère en cours de création 


Tl 99/4A 


MOON PATROL 

Rejoignez la base lunaire la plus proche 
en évitant les projectiles des vaisseaux ennemis 
et les cratères insondables. 

Tirez verticalement avec le curseur « haut » 
et horizontalement avec le curseur «droite». Pressez 
la barre d'espace pour tirer. 


5 REM-PATROUILLE- 

6 REM- 

7 GOSUB 700 

8 CRLL SCREENC 6 ) 

9 CRLL CLERR 

10 CRLL CHflRC128,"00183F187EFF7E3C" ) 
15 CRLL CHflRC129,"0000490000000000"> 
20 CRLL CHRRC130,"1800001800001800") 
£5 CRLL CHflRC136,"001866FF66180000") 
30 CRLL CHRRX 137,"0E0E0E10E8E7E707") 
35 CRLL CHflRC138,"00243C183C3C3C18"> 


40 CRLL CHflRC144,"DEFBDFFFB7FEEFB6") 
45 CflLL CHflRC145,"0081C1C2E3BD7BEF") 
58'CRLL COLORC13,2,6) 

55 CflLL COLORC14,7,6) 

60 CRLL COLORC15,14,6) 

65 RflNDQMI2E 
70 fl$="" 

75 SC=0 
80 T=1 
85 Y=16 
90 L=@ 
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95 B=1 

100 CflLL CLEflR 
105 PRINT fl*J 

110 CflLL HCHflR< 23-L,10,128) 

1£0 CflLL HCHflRC5,Y,136 > 

125 IF T=1 THEN 135 

130 CflLL HCHflR<23-TT,W,137) 

135 IF B=1 THEN 145 
140 CflLL HCHflR<BY, 10»138) 

145 CflLL KEY<4,M,N) 

146 CflLL GCHflR<24,10,F> 

14? IF F=145*<1-L)THEN 610 
150 IF N=0 THEN 200 

155 IF M<>69 THEN 170 

160 GOSUB 500 

165 GOTO 200 

170 IF M<>68 THEN 180 

175 GOSUB 550 

176 GOTO 200 

180 IF 11032 THEN 200 
185 IF L=1 THEN 200 

190 L=1 

191 SC=SC+10 
195 GOTO 205 
200 L=0 

205 YY=INT< RND*2 ) 

210 Y=YK < Y-YY >2 >*YY+< Y-YY+1 < 20 )*< YY-1 ? )*2 

211 IF YKBO10 THEN 215 

212 B=0 

213 BY=6 

215 W=W-1 

216 BY=BY+1 

217 IF BY=23*<1-B)THEN 610 

218 IF W>0 THEN 220 

219 T=1 

220 IF T=0 THEN 248 
225 IF RNDC.6 THEN 240 

230 T-0 

231 TT= I NT 1 '. RNDY2 > 

235 W=32 

240 IF W*<1-T)*<1-TT)=10 THEN 600 


250 fl*=SEG*< fl*, 2,2? >&CHR*<: IHTC RND#2 >+144 ) 
260 IF SEG*<fl*,25,3)="" THEN 280 
270 H*=SEG*<fl*,1,27 "" 

280 REM 

290 GOTO 100 

500 IF B=1 THEN 510 

504 SC=SC+100 

505 CflLL VCHAR<BY,10,130,22-L-BY) 

506 GOTO 520 

510 CflLL VCHRRC3,10,130,19-L) 

520 B=1 

530 CflLL SOUNDC300,200,5> 

535 CflLL VCHflR<3,10,32,19-L) 

540 RETURN 

550 IF T=1 THEN 570 

555 IF W>20 THEN 570 

556 IF LOTT THEN 570 

560 CflLL HCHARX23-L,11,129,W-11> 

562 T=1 

563 SC=SC+50 
565 GOTO 580 

570 CflLL HCHHR<23-L,11,129,10) 

580 CflLL SOUNDC300,500,5) 

585 CflLL HCHARC.23-L, 11,32,10) 

590 RETURN 

600 IF L=1 THEN 250 

610 PRINT :"SCORE = ";SC 

620 PRINT »»:"UNE AUTRE PARTIE <0/N) 

630 INPUT fl* 

640 IF fl*="Ü" THEN 70 
650 IF fi*< >"N" THEN 620 
660 END 

700 CflLL CLEflR 

705 PRINT " PATROUILLE" ::: 

710 PRINT "TIRS —> CURSEUR HAUT,DROITE" 1 
"SAUT —> ESPACE" : = = ! ! 

720 FOR 1=0 TO 2000 
730 NEXT I 
740 RETURN 


COMMENTAIRES î 

Ligne 10 à 45 : dé-finition des 
caractères 

Ligne 50 à 95 : initialisation des 
variables 

Ligne 130 à 270 : programme principal 


Ligne 500 à 540 
d'a-f-f i chage 
Ligne 550 à 590 
d'a-f-f i chage 
Ligne 600 à 660 
Ligne 700 à 740 
présentâtion 


premier sous programme 

second sous programme 

■fin de partie 
sous programme de 
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TI99/4A 

PUISSANCE 4 


Alignez le premier quatre pions de votre couleur 
et ridiculisez votre adversaire... 

Pour jouer, rien de plus simple, il vous suffit de presser 
la touche correspondant à la colonne choisie. 


100 DATA 36,"007F7F7F7F7F7F7F",37, "00FEFEFEFEFEFEFE" 

110 DATA 3S,"7F7F7F7F7F7F7F00",33,"FEFEFEFEFEFEFE00" 

120 DATA "0103070F1F3F7FFF","FFFEFCF8F0E0C080" 

130 DATA "80C0E0F0F3FCFEFF","FF7F371F0F070301", "FFFFFFFFFFFFFFFF" 

140 DATA 4,3,3,4,5,3,4,4,1,6,4,1,8,5,5,8,7,5,12,6,1,10,9,1,12,9,5 
150 DATA 16,11,3,18,13,3,16,12,1,16,13,1,18,12,1,20,11,1,20,12,1,16,15,3,18,17,3 
160 DATA 16,16,1,16,17,1,18,16,1,20,15,1,20,16,1,16,13,5,16,21,5,16,20,1,18,20,1 
170 DATA 12,23,5,12,25,5,13,24,1,8,27,5,8,28,1,8,23,1,12,28,1,12,23,1 
180 DATA 4,31,5,4,32,1,6,32,1,8,32,1 
130 DATA 10,14,2,7,17,6,11,15,1,11,16,1,11,18,1 
200 CALL CLEAR 
210 DIM AC6,8? 

220 FOR 1=1 TO 4 
230 READ CH,COS 
240 CALL CHARC CH,CO® ) 

250 CALL CHARC CH+3,COS > 

260 CALL CHARCCH+16,COS) 

270 HEXT I 

280 FOR 1=120 TO 124 
230 READ CO* 

300 CALL CHARCI,COS ) 

310 HEXT I' 

320 CALL COLORC11,1,11) 

330 CALL COLORC12,1,1 ) 

340 CALL SCREENC 3) 

350 FOR 1=1 TO 44 
360 READ B,C,D 
370 CALL VCHARC B,C,124,D ) 

380 HEXT I 

330 CALL HCHARC12,24,122) 

400 CALL HCHARC14,24,123) 

410 11=17 
420 FOR 1=6 TO 3 
430 CALL HCHARC1,11,120) 

440 11=11-1 
450 HEXT I 

460 CALL HCHARC3,15,121) 

470 CALL HCHARC8,16,121) 

480 CALL COLORC12,11,1 ) 

430 V=24 
500 H=13 

510 f1S= ,, DV'-VIDEO 81384" 

520 GOSUB 1710 
530 FOR 1=1 TO 1000 
540 HEXT I 

550 CALL COLORC3,5,11 ) 

560 CALL COLORC10,7,11) 

570 H=3 

580 CALL SCREEHC 3) 

530 CALL CLEAR 
600 FOR J=1 TO 8 
610 FOR 1=1 TO 6 
620 AC I,J)=0 
630 HEXT I 
640 HEXT J 
650 V=1 
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660 H=13 

670 M*="PUISSANCE 4" 

6S0 GOSUB 1710 
690 FOR J=10 TO 24 STEP 2 
700 FOR 1=4 TO 14 STEP 2 
710 CRLL HCHRRCI/J/112) • 

720 CRLL HCHRRC1/ J+l/ 113? 

730 CRLL HCHRRU+ 1* J/ 114) 

740 CRLL HCHRRC1+1/J+l/115) 

750 NEXT I 
760 NEXT J 

770 CRLL COLORU 1*1,11) 

780 FOR 1=11 TO 25 STEP 2 
790 CRLL HCHRRC 3 /1 / ( I -1 V2-4+64 > 
800 NEXT I 
810 V=23 

820 H$=" JOUEUR #"8<STR$C 1 ) 

830 GOSUB 1710 
840 V=24 

850 f1*="COLONNE ?» " 

860 GOSUB 1710 

870 FOR T=1 TO 2 

880 CRLL HCHRRC23/21/T+43) 

890 CRLL SOUNDC-50/440/0) 

900 CRLL KEYC0/KEY/ET) 

910 IF ET=0 THEN 900 
920 C=KEY-64 

930 IF C C< 1 )+C08 )THEN 900 

940 FOR 1=6 TO 1 STEF -1 

950 IF RCI/0=0 THEN 980 

960 NEXT I 

970 GOTO 880 

980 RCI/0=T 

990 IF T=2 THEN 1020 

1000 F=96 

1010 GOTO 1030 

1020 P=104 

1030 F=I#2+3 

1040 G=C*2+9 

1050 CRLL HCHRRCF-l/G-l/P) 

1060 CRLL HCHRRCF-l/G/P+l) 

1070 CRLL HCHRRCF/G-l/P+2) 

1080 CRLL HCHRRC F/G/P+3) 

1090 N=0 

1100 FOR K=C TO 1 STEP -1 
1110 IF RC I/KX>T THEN 1150 
1120 N=N+1 

1130 IF N=4 THEN 1420 

1140 NEXT K 

1150 FOR K=C+1 TO 8 

1160 IF RC I/KX >T THEN 1200 

1170 N-N+l 

1180 IF N=4 THEN 1420 
1190 NEXT K 
1200 H=1 


1210 FOR K=6 TO 1+1 STEP -1 
1220 IF RCK/OOT THEN 1260 
1230 N=N+1 

1240 IF H=4 THEN 1420 

1250 NEXT K 

1260 N=1 

1270 L=1 

1280 M=1 

1290 GOSUB 1600 

1300 L=-l 

1310 ri=-i 

1320 GOSUB 1600 

1330 N=1 

1340 L=-l 

1350 n=i 

1360 GOSUB 1600 

1370 L=1 

1380 M=-l 

1390 GOSUB 1600 

1400 NEXT T 

1410 GOTO 810 

1420 FOR X=110 TO 300 STEF 10 
1430 CRLL SOUNDC-10/X/2/X+50/2) 

1440 NEXT X 

1450 CRLL SCREENC8 ) 

1460 CRLL HCHRRC23/1/32/64) 

1470 V=22 
1480 H=3 

1490 M*="LE JOUEUR #"&STRSC T )«," fl GRG 
NE LR PARTIE" 

1500 GOSUB 1710 
1510 V=24 . 

1520 H=3 

1530 H*=" VOULEZ-VOUS REJOUER TCO/H/' 
/l))) 

1540 GOSUB 1710 

1550 CRLL KEYC0/KEY/ET) 

1560 IF ET=0 THEN 1550 

1570 IF KEY=79 THEN 530 

1530 CRLL CLEAR 

1590 END 

1600 R=I 

1610 S=C 

1620 R=R+L 

1630 S=S+M 

1640 IF CR<1 )+C R>6)THEN 1700 
1650 IF CS<1 )+CS>8)THEN 1700 
1660 IF RC R/SX >T THEN 1700 
1670 N=N+1 

1680 IF N=4 THEN 1420 
1690 GOTO 1620 
1700 RETURN 

1710 FOR 1=1 TO LENCM$) 

1720 CRLL HCHRRCV/H-1+1/RSCCSEG*CM*/I 
1730 NEXT I 

1740 RETURN _ _ 


COMMENTAIRES : 

Ligne 100 à 190 : datas des variables du 
programme 

Ligne 200 à 480 : initialisation de 
l'écran et des variables du jeu 
Ligne 490 à 660 s tracé du décor de 
1'écran 


Ligne 670 à 1590 : programme principal, 
calcul des positions des pions, 
a-f-fichage des pions, mouvements des 
p i èces 

Ligne 1600 à 1690 r sous programme de 
vér i -f i cat i on 

Ligne 1710 à 1740 : sous programme 
d'a-f-fichage des pions 



- TI 99/4A - 

ADAM ET EVE 

L'ignoble serpent qui a poussé Ève à manger la pomme 
est aujourd'hui enfin puni : 

il doit engloutir le plus de fruits possibles dans un temps 
limité, tout en évitant les obstacles 
qui surgissent devant lui. 

Utilisez les quatre touches du curseur pour vous déplacer. 



100 REM ***************************SABLAT0U CLAUDE****************CHEI'f'IILLUS*** 
********************************** 

110 CALL CLEAR 
120 CALL SCREEN<2> 

130 REM *************************DIFFERENTS CARACTERES***»*»*****»»»*»»*»*»*»**» 
***** 

1 40 LAP!*="0003030242A4A418" 

150 LAP2*="10 2828A8AB4B0A04■ 

160 EXP*<1>=‘88492A14E3345291“ 

170 EXP*(3) = "0000084228926D16" 

1BÛ EXP*(2)="00200214A2144924‘ 

190 EXP*(4)="000000002448A210" 

200 EXP*(5)="0000000000021044" 

210 EXP*(4)=“ 0000000000000028" 

220 VTR*="00003C427EBD7E64- 
230 H0M*="0C081C2848142242“ 

240 CAROT*="EE107C9E8E8EFE6C" 

250 CR0C*=-36771C0C085D7E3E - 
240 HER8*="10114AAA1C5DBE1C' 

270 80UL*=-7E438DBFBFBF5F7E" 

280 PLEIN*=*FFFFFFFFFFFFFFFF“ 

290 UIDE*="" 

300 REM ...*.»...*.*.********.«DEFINITION DES CARACTERES************************ 
***** 


310 CALL CHAR(42,CROC*> 

320 CALL CHAR< 96,PLEIN*) 

330 CALL CHAR(97,VIDE») 

340 CALL CHAR(104,VIDE*) 

350 CALL CHAR(105,HERB* ) 

360 CALL CHAR<112,LAP1 *) 

370 CALL CHAR(113,UIDE*) 

3B0 CALL CHAR(120,LAP1*1 
390 CALL CHAR(128,VTR*> 

400 CALL CHAR(129,HOM*) 

410 CALL CHAR(130,CAROT♦) 

420 CALL CHAR(136,UTR*) 

430 CALL CHAR(137,HOM») 

440 CALL CHAR(138,CAROT») 

450 CALL CHAR(144.UTR*) 

460 CALL CHARO45.H0M*) 

470 CALL CHAR<144,CAROT») 

480 CALL CHAR( 152,801JL*> 

490 REM **********************»ATTRIBOT ICN DES 


COULEURS************************* 


***** 

500 CALL C0L0R<2,16,15) 
510 CALL COLOR(9,9,16) 
520 CALL C0L0R(10,13,4) 
530 CALL COLORdl ,7,15) 
540 CALL C0L0R<12,7,4) 
550 CALL COLOR(13,14,15) 
560 CALL CQLOR(14,9,15) 
570 CALL COLOR(15,13,15) 
580 CALL COLOR<14,1,15) 
590 FOR 1=3 TO 8 
400 CALL COLORd ,16,4) 
410 NEXT I 


40 


















620 REM *************************AFFICHAGE DE LA ROUTE»*»*»»»****»*»************ 

***** 

430 CALL HCHAR!21,1,104,7*32) 

440 CALL HCHAR<5,1,113,15*32) 

450 FOR 1=1 TO 29 STEP 4 
440 CALL HCHAR!4,I,94,2) 

470 CALL HCHARC20,I ,94,2) 

460 CALL HCHAR(4,1*2,97,2) 

490 CALL HCHAR<20,1*2,97,2) 

7°o REM T *****************"*******F'FFICHAGE DES HERBES*************************** 
***** * 

720 FOR 1=1 TO 10 

730 CALL UCHAR(INT!RND*3)♦1,INT(RND*32> *1,105) 

740 N EXT I 

750 FOR 1=1 TO 20 

740 CALL HCHAR<INT( RND*4)*21,INT< RND*32)♦1,105) 

770 N EXT I 

780 CALL HCHAR< 23,4,94,32-4) 

790 CALL HCHARC21,29,120,3) 

600 CALL VCHAR! 23,5,112) 

810 GOSUB 850 
620 GOSUB 940 
630 GOTO 2080 

840 REM »....*..*****.****...«..AFFICHAGE OES MESSAGES***********.. 

***** 

650 Y-21 
840 X=4 

870 C*=SEG»!"000000",I,4-LEN<STR*<HI>)l&STR»!H1) 

680 G0SU8 1140 
890 X-14 
900 Y=21 

910 C»=SEG*!'000000",1,4-LEN<STR*(SC))>&STR*(SC) 

920 GOSUB 1140 

940 REM U ***.*«.**.**•**.**.*****AFF I CHAGE DES OBSTACLES*..****.*....... 

***** 

950 OBS=l28 * 

940 GOSUB 1210 

970 OBS=l29 

980 GOSUB 1210 

990 OBS=l30 

1000 GOSUB 1210 

1010 FOR 1=1 TO DIF 

1020 Y=1NT!RND*15>*5 

1030 X=1NT<RN0*28)+5 

1040 CALL GCHAR<Y,X,OBS) 

1050 IF <0BSO113)*<0BS<>42)THEN 1020 
1040 CALL VCHAR<Y,X,152) 

1070 NEXT I 

1080 IF DEMO=1 THEN 1150 
1090 IF CAPOT)10 THEN 1150 
1100 FOR 1=1 TO CAROT 
1110 FOR T=0 TO 20 STEP 5 
1120 CALL SOUND!-200,1200,T) 

1130 N EXT T 
1140 NEXT 1 

{ ! 40 REM^***************************®^US PROGRAMME...**...*.*..***************** 
***** 

1170 FOR 1=1 TO LEN!C») 

1180 CALL HCHAR<Y,X*I-1,ASC!SEG»!C*,I,1)>> 

1190 NEXT I 

izïS R EM ^ ********************* ******®^S PROGRAMME..........*.*..**.***.....**** 

***** 

1220 FOR T=1 TO 3 
1230 FOR 1=1 TO DIF 
1240 Y=INT!RND*15)+5 
1250 X=INTCRND*28)*5 
1240 CALL GCHAR < Y,X,001) 

1270 IF !QOIOl13 > * CQOl<)42)THEN 1240 

1280 CALL VCHAR(Y,X,OBS> „_„ _ 

1290 IF ! ! 085=130)*!OBS=l38>*<0BS=144>>=0 THEN 1310 

1300 CAROT=CAROT*1 

1310 NEXT I 

1320 OBS=OBS*8 

1330 NEXT T 

1340 RETURN ..........BONUS*...... 

1350 REM ,..«......**.**»*************B0NUS******** 

***** 

1340 FOR 1=1 TO 3 

1370 FOR T=0 TO 20 STEP 10 

1380 CALL SOUND! -200,1200,T,440,T,800,T) 

1390 NEXT T 
1400 NEXT I 

1410 SC=SC+INT!RND*I000)*100 
1420 GOSUB 890 
1430 GOSUB 1450 

Î 45 S RE™*»».»**...........VIES EN PLUS....*..*—****-**•********.****** 

***** 

1440 IF Vl=l THEN 1590 
1470 IF SCÜ0000 THEN 1580 
1480 Vl=l 
1490 NV=NV*1 

1500 CALL HCHARI21,24,104,4) 

1510 C*=SEG*("xxxxxx”,1,NV) 

1520 FOR 1=1 TO LEN!C*> . 

1530 CALL HCHAR!21,24+I-1,ASCISEG*!C*,I,1))) 

1540 NEXT 1 

1550 FOR 1=0 TO 20 STEP 2 
1540 CALL SOUND!-200,-1,1) 

1570 NEXT I 
1580 RETURN 
1590 IF V)2=l THEN 1430 

1400 IF SC<20000 THEN 1580 __ 









1610 U2=l 

1620 GOTO 1490 

1630 IF U3=l THEN 1580 

1640 IF SC<30000 THEN 1580 

1650 y3=1 

1660 GOTO 1490 

1670 REM *****************************LAPIN EN MOINS*»»***»»**»*»*»»»»»»»*»*»*»* 
»*»** 

1680 IF NV=0 THEN 1770 
1690 NV=NV-1 

1700 C*=SEG*!"x<xxxx",1,NU> 

1710 CALL HCHAR! 21 ,26,104,6) 

1720 FOR 1-1 TO LEN!C*> 

1730 CALL HCHAR<21,26*1-1,ASC<SEG*<C»,I,1>>) 

1740 NEXT I 
1750 GOSUB 3000 
1760 GOTO 3480 

1770 REM .*••*.******GAME OVER»»»**»»»*»*»*»»**»**»»**»»»»*»*»* 

***** 

1780 CALL SOUND<200,220,0,440,0) 

1790 CALL SOUNDI200,980,0,660,0) 

1800 CALL SOUND<200,440,0,120,0) 

1810 CALL SOUNDOOOO, 1200,0,990,0,1400,0) 

1820 C*=“qqGAMEqOUERqq“ 

1830 FOR 1=1 TO LEN(C») 

1840 CALL HCHAR<12,11 + 1,ASC< SEG*!C*,I,1))> 

1850 CALL SOUND< 50,-7,0) 

1860 NEXT I 

1870 IF HD-SC THEN 2050 
1880 HI-SC 

1890 REM »**»#»*******•*»**•»»**»»»»CHANTE HI SCORE***************************** 
***** 

1900 IF HI)SC THEN 1770 

1910 FOR 1=1 TO 3 

1920 CALL SOUND!100,220,0,440,0) 

1930 NEXT I 
1940 FOR T=1 TO 50 
1950 NEXT T 

1960 CALL SOUND!200,196,0,440,0) 

1970 FOR T=1 TO 20 
1980 NEXT T 

1990 CALL SOUNDÜOO,220,0,440,0) 

2000 C*="qqYOUqHAUEqHIGHTqSCOREqq" 

2010 FOR 1=1 TO LEN!C*> 

2020 CALL HCHAR!16,6*1-1,ASC!SEG*!C*,I,1))> 

2030 NEXT I 
2040 GOTO 2060 

2050 CALL SOUND! 1000,110,30,110,30,770,30, *~4,0) 

2060 CALL KEY!5,R,E) 

2070 IF E=0 THEN 2060 ELSE 2080 

2080 REM ********************************DEMO*********************************** 
***** 

2090 SC=0 

2100 RAND0MI2E 

2110 DEM0=1 

2120 PCR=4 

2130 DIF=1 

2140 GOSUB 940 

2150 HY=10 

2160 PCR=PCR*1 

2170 CALL HCHAR!23,PCR,112) 

2180 HX=1 

2190 LAP=0 

2200 HX=HX+1 

2210 IF HX>32 THEN 2380 

2220 CALL GCHAR!HY,HX,QOI) 

2230 CALL UCHAR!HY,HX,112) 

2240 IF QOI 0113 THEN 2570 
2250 IF LAP=0 THEN 2290 
2260 LAP=0 

2270 CALL CHAR!112,LAP1•) 

2280 GOTO 2310 
2290 LAP=1 

2300 CALL CHAR!112,LAP2*) 

2310 CALL HCHAR!HY,HX,113) 

2320 HY=HY*!RND<.5)-<RND!.5) 

2330 IF HY>4 THEN 2350 
2340 HY=S 

2350 IF HY<19 THEN 2370 
2360 HY=19 

2370 IF HX<32 THEN 2410 
2380 CALL HCHAR!23,PCR,96) 

2390 GOSUB 940 
2400 GOTO 2160 

2410 REM ...«JOUER P.*»**.».............***»».**.»..... 

***** 

2420 CALL KEY!5,RET,ET) 

2430 IF ET=0 THEN 2200 

2440 IF <RET<49> + <RET>541THEN 2200 

2450 DIF=RET-48 

2460 CALL SOUNDOOOO , 1200,0,3000,0,2000,0) 

2470 CALL HCHAR!24,10,104,18) 

2480 FOR 1=1 TO DIF 
i " 

2500 NEXT I 

2510 DIF*="LEVELh"&DIF* 

2520 FOR 1=1 TO LENIDIF») 

2530 CALL HCHAR!24,10*I — 1,ASC!SEG®< DI F*,1,1))) 

2540 NEXT I 
2550 DIF*=‘" 

2560 GOTO 3460 

2570 REM *************»**********»*QU'AS TU TOUCHE P*************************** 
***** 

2580 IF QOI-138 THEN 2740 

2590 IF QOI=l46 THEN 2760 

2600 IF Q0I-130 THEN 2790 












2élO REM ».*»»lH<»**«»»»*****»**»****»*»eXPLOSION«»««««»»«******»»*««****«**«««** 

*»»»» 

2420 FOR 1=1 TO 4 

2430 CALL CHARC112,EXP*CI)) 

2440 FOR T=1 TO 20 
2450 NEXT T 
2440 NEXT I 

2470 CALL HCHARC HY , HX ,113) 

2480 CALL HCHAR<5,1,113,15032) 

2490 CALL HCHARC 21,14,48,4) 

2700 GOSUB 940 

2710 CALL HCHARC 23,4,94,32-4) • 

2720 GOTO 2080 

2730 REM ooooooooooooooooooooooAUGMENTATION SCORE OEMOooooo.o.ooooooooo.oooooOoo 
ooooo 

2740 SC=SCtPRC*50 
2750 GOTO 2800 
2740 SC=SC*PRC»20 
2770 GOTO 2800 
2780 SC=SC*PRC«10 
2790 GOTO 2800 

2600 REM «»*»**«*»»•»**»»»**» 

2810 GOSUB 890 

2820 CALL HCHAR(HY,HX,113) 

2830 GOTO 2200 

2840 REM ••••••DEBUT»»»*»*»*» 

2850 CAROT-O 

2840 CALL HCHAR< 5,1,113,15*32) 

2870 DEMO=0 
2880 GOSUB 940 
2890 GOSUB 050 

2900 CALL HCHARC23,4,94,32-4) 

2910 CALL HCHARC21,24,104,4) 

2920 CALL HCHAR<23,4,112) 

2930 SC-0 
2940 V1=0 
2950 U2=0 
2940 NV=3 
2970 U3=0 

2980 CALL HCHAR<21,24,120,3) 

2990 PRC=4 
3000 HY=12 
3010 HX=1 

3020 CALL SOUNDC1000, 1400,0,440,0,880,0) 

3040 RiM U »»»»**»*»*»«»»**«»**»*QU'AS TU ENCORE TOUCHE ?»..*....».»»**»»*•«•*«*»* 


3050 IF QOI=l38 THEN 3170 

3040 IF 001=144 THEN 3200 

3070 IF 001=130 THEN 3230 

3080 IF 001=42 THEN 3400 _ 

3090 REM ».»»..»».»...«»*.»..*»*****»*EXPLOSION.»...******** 

***»» 

3100 FOR 1=1 TO 4 

3110 CALL CHAR(112,EXP*(I)> 

3120 CALL SOUND<-200,-5,<I-1)*2) 

3130 NEXT I 

3140 CALL VCHARCHY,HX,113> 

3150 GOTO 1470 

3140 REM *»*«**»*»*•»»»*«»*** 

3170 SC=SC+PRC*50 

3180 CALL SOUNDCSOO,1500,0) 

3190 GOTO 3250 

3200 SC=SC*PRC«20 

3210 CALL SOUND(500,770,0) 

3220 GOTO 3250 

3230 SC=SC*PRC*10 

3240 CALL SOUND<500,220,0) 

3250 GOSUB 890 

3240 CAROT=CAROT-l 

3270 IF CAR0T=0 THEN 1350 

3280 GOSUB 1450 

3290 CALL HCHAR<HY,HX,42) 

3300 GOTO 3410 

3310 CALL UCHARC HY , HX ,112) ____ 

3320 REM .«»«.*.»..»»***.»»****»*CHANGEMENT DE TABLEAU*»»»*»»»****************** 


«»*»» 

3330 CALL SOUNDCSOO,220,0,880,0,440,0) 
3340 CALL HCHARC 23,4,94,32-4) 

3350 PRC=PRC+1 

3340 CALL HCHARC23,PRC,112) 

3370 GOSUB 940 

3380 HX-1 

3390 GOTO 3480 

3400 SOSC-lOO 

3410 CALL SOUNDC1000,-7,15) 

3420 IF SC>0 THEN 3440 
3430 GOTO 3090 
3440 GOSUB 890 
3450 GOTO 3540 

3440 REM »»•*••««««.»»»•*»»»•*•*»**»*» 
*•*• 


JEU' 


3470 GOSUB 2840 
3480 REM 

3490 IF HX=32 THEN 3320 
3500 HX=HX*1 

3510 CALL GCHAR C HY,HX,QOI) 
3520 CALL VCHARCHY,HX,112) 
3530 IF QOI 0113 THEN 3040 
3540 IF LAP-0 THEN 3580 
3550 LAP=0 

3540 CALL CHARC112.LAP1*) 
3570 GOTO 3400 
3580 LAP=1 

3590 CALL CHARC112,LAP2*> 
3400 CALL HCHARC HY,HX,113) 























3610 

CALL KEY<5,RET, ETA) 

3660 

HY=HY-1 

3620 

IF ETA=0 THEN 3480 

3670 

GOTO 3480 

3630 

IF RET=88 THEN 3680 

3680 

IF HY=*19 THEN 3480 

3640 

IF RET069 THEN 3480 

3690 

HY=HY+1 

3650 

IF HY=5 THEN 3480 

3700 

GOTO 3480 


COMMENTAIRES s 

Ligne 100 à 120 : initialisation de 
1'écran 

Ligne 140 à 290 : redéfinition des 
caractères graphiques 

Ligne 310 à 490 : entrée des caractères 
Ligne 500 à 610 : initialisation des 
couleurs 

Ligne 710 à 830 s affichage des herbes 
Ligne 840 à 930 : affichage des messages 


Ligne 950 à 1150 : 
obstacles 
Ligne 1160 à 1340 
Ligne 1360 à 1440 
calcul 

Ligne 1450 à 1660 
Ligne 1670 À 1770 
Ligne 1780 à 1800 
Ligne 1890 à 2070 
gagné 

Ligne 2080 à 3700 


affichage des 

: sous programmes 
: bonus affichage et 

s vies en plus 
: lapin en moins 
: fin de la partie 
: musique si vous avez 

: démo du jeu 


- 77 99/4A - 

MEMORY 


Retrouvez dans un tableau les différentes formes 

de couleurs 

qui vont par paires mais apparaissent au hasard. 
Vous vous déplacez à l'aide des touches 
d'éditions et validez 
grâce à la touche « enter » 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


REM ****************** 
REM * JEU DE MEMOIRE * 
REM ****************** 
RANDOMIZE 

REM ****************** 
REM * DEFINITIONS * 
REM * DES CARACTERES * 
REM ****************** 
DATA 4992244992244994 
DATA 181818E7E7181818 
DATA 66C3A51818A5C366 
DATA 8A4522118844A251 
DATA 1824429999422418 
DATA FF422418244281 FF 
DATA C3C324181824C3C3 
DATA 9924429999422499 
DATA 7E81FFFFFFFFFF66 
DATA FFFF00FFFF00FFFF 


280 DATA FF00FFFF00FFFF00 
290 DATA 0000FFFF00FFFF00 
300 DATA 2442815A3C5A8181 
310 DATA 4281423C3C428142 
320 DATA 6090884422110A04 
330 DATA 0609112244886020 
340 DATA 0000FF8181FF0000 
350 DATA 00FF8181FF000000 
360 DATA 00183C66E77E0000 
370 DATA FFFFFFFFFFFFFFFF 
380 DATA 55AA55AA55AA55AA 
390 REM ******************* 

400 REM * AFFICH. INTROD. * 

410 REM ******************* 

420 REM 

430 DIM DAM<6,6>,DES<18),TA<3,2) 
J< 2) 

440 J<1>=0 
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450 J< 2)=0 

460 JT=0 

470 JOUEUR=l 

480 S0N=262 

490 RESTORE 

500 FOR T=1 TO 18 

510 DES(T)=2 

520 NEXT T 

530 CALL CLEAR 

540 D*="1824442999422418" 

550 CALL CHAR< 32,D$) 

560 CALL COLOR(1,1,8) 

570 CALL SCREEN< 2) 

580 FOR T=136 TO 153 
590 READ A* 

600 CALL CHAR<T,A$) 

610 NEXT T 
620 READ A* 

630 CALL CHAR(112,A$) 

640 READ A* 

650 CALL CHARC120,A*> 

660 READ A* 

670 CALL CHAR<104,A*) 

680 GOTO 810 

690 REM **************** 

700 XL=10 
710 YL=10 

720 A*="**MEMORY** n 
730 GOSUB 890 
740 A$="PAR" 

750 GOSUB 890 • 

760 A$="CLAUDE SABLATOU" 

770 GOSUB 890 

780 FOR CO=l TO 16 

790 GOSUB 830 

800 NEXT CO 

810 REM 

820 GOTO 980 

830 REM 

840 FOR C=2 TO 9 

850 CALL COLOR< C,CO,2) 

860 NEXT C 
870 RETURN 

880 REM ***************** 
890 REM * AFFICHAGE No.1 * 
900 REM ***************** 
910 FOR T=1 TO LENCA*) 

920 A=ASC(SEG*(A*,T,1)) 

930 CALL HCHAR<YL,XL+T,A) 

940 CALL S0UND(5Û,440,0) 

950 NEXT T 

960 YL=YL+1 

970 RETURN 

980 REM 

990 REM ***************** 

1000 REM * DEBUT DU JEU * 

1010 REM ***************** 

1020 REM 

1030 FL=0 

1040 JOUEUR=l 

1050 CALL CLEAR 


1060 CALL CHAR(32,"AA55AA55AA5 

1070 CALL SCREEN< 2) 

1080 CALL COLOR(1,1,5) 

1090 CALL COLOR(12,16,16) 

1100 CALL COLOR<11,2,16) 

1110 CALL COLOR<10,5,2) 

1120 CALL COLORC14,16,2) 

1130 CALL COLOR(15,16,2) 

1140 CALL COLORC16,16,2) 

1150 FOR X=1 TO 6 

1160 FOR Y=1 TO 6 

1170 IF Y<>5 THEN 1190 

1180 IF X=6 THEN 1270 

1190 B=INT(RND*18)+1 

1200 IF DES(B)=0 THEN 1190 

1210 DAM(X,Y)=B 

1220 DES(B)=DES(B)-1 

1230 NEXT Y 

1240 NEXT X 

1250 REM 

1260 REM 

1270 FOR T=1 TO 18 

1280 IF DES(T)=0 THEN 1350 

1290 FOR Y=5 TO 6 

1300 IF DAM < 6,Y)< > 0 THEN 1340 

1310 DAM(6,Y)=T 

1320 DES(T)=DES(T)-1 

1330 GOTO 1280 

1340 NEXT Y 

1350 NEXT X 

1360 XL=8 

1370 YL=3 

1380 A$= 11 DAMI ER DU MEMORY" 

1390 CO=l2 

1400 GOSUB 840 

1410 GOSUB 890 

1420 VA=120 

1430 FOR X=1 TO 6 

1440 FOR Y—1 TO 6 

1450 GOSUB 2150 

1460 NEXT Y 

1470 NEXT X 

1480 X=1 

1490 Y=1 

1500 YM=7 

1510 XM=11 

1520 GOSUB 2220 

1530 GOSUB 2660 

1540 REM 

1550 REM 

1560 REM 

1570 CALL KEY(3,L>,ST) 

1580 CALL SOUND(1,SON,15) 

1590 IF S0N=262 THEN 1620 

1600 S0N=262 

1610 GOTO 1630 

1620 S0N=294 

1630 IF ST=0 THEN 1570 

1640 IF U=13 THEN 1860 

1650 IF <J<8 THEN 1570 
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1660 IF L>>11 THEN 1570 

1670 ON V-7 GOTO 1680,1700,1720,1 

740 

1680 X=X-1 
1690 GOTO 1750 
1700 X=X+1 
1710 GOTO 1750 
1720 Y=Y +1 
1730 GOTO 1750 
1740 Y=Y-1 

1750 IF X>=1 THEN 1770 
1760 X=1 

1770 IF X<=6 THEN 1790 
1780 X=6 

1790 IF Y>=1 THEN 1810 
1800 Y=1 

1810 IF Y<=6 THEN 1830 

1320 Y=6 

1830 GOSUB 2220 

1840 GOTO 1570 

1850 REM 

1860 REM 

1870 REM 

1880 CALL S0UND(500.1200,0,440,0, 

220 , 0 ) 

1890 FL=FL+1 

1900 YA=DAM<X,Y)+135 

1910 IF VA0135 THEN 1940 

1920 VA=0 

1930 GOTO 1950 

1940 GOSUB 2150 

1950 TA<1,FL)=VA 

1960 TA<2,FL)=X 

1970 TA< 3,FL)=Y 

1980 IF FL<=1 THEN 1570 

1990 FL=0 

2000 IF TA<1,1)<>TA<1,2)THEN 2050 

2010 IF TA( 2,1)< >TA< 2,2)THEN 2030 

2020 IF TA(3,1)=TA< 3,2)THEN 2050 

2030 GOSUB 2320 

2040 GOTO 2080 

2050 FOR T=1 TO 50 

2060 NEXT T 

2070 GOSUB 2510 

2080 IF JOUEUR=l THEN 2110 

2090 JOUEUR=l 

2100 GOTO 2120 

2110 J0UEUR=2 

2120 GOSUB 2660 

2130 GOTO 1570 

2140 REM 

2150 REM 

2160 REM 

2170 X1=<X-1)*2+l1 

2180 Yl=(Y-l)*2+7 

2190 CALL HCHAR<Y1,X1,VA) 

2200 RETURN 
2210 REM 
2220 REM 
2230 REM 

2240 Y1=<Y-1)*2+7 


2250 X1=<X-1)*2+l1 

2260 CALL HCHARCYM,XM,120) 

2270 CALL HCHARCY1,X1,112) 

2280 YM=Y1 
2290 XM=X1 
2300 RETURN 
2310 REM 
2320 REM 
2330 REM 

2340 DAM(TA<2,1),TA<3,1))=0 
2350 DAM<TA(2,2),TA(3,2))=Û 
2360 CALL SOUND<500,110,0,220,0,3 
30,0) 

2370 YL=22 
2380 XL=24 

2390 IF JOUEUR=l THEN 2410 
2400 XL=6 

2410 J<JOUEUR)=J<JOUEUR)+l 
2420 PT*=STR*<J<JOUEUR)) 

2430 FOR T=1 TO LEN(PT*) 

2440 A=ASC<SEG$(PT$,T,1)) 

2450 CALL HCHAR<YL,XL+T,A) 

2460 NEXT T 
2470 JT=JT +1 

2480 IF JT>=18 THEN 2820 

2490 RETURN 

2500 REM 

2510 REM 

2520 REM 

2530 VA=120 

2540 XX=X 

2550 YY=Y 

2560 FOR T=1 TO 2 

2570 X=TA < 2,T) 

2580 Y=TA < 3,T) 

2590 IF DAM(X,Y)=0 THEN 2610 

2600 GOSUB 2150 

2610 NEXT T 

2620 X=XX 

2630 Y=YY 

2640 RETURN 

2650 REM 

2660 REM 

2670 REM 

2680 YL=21 

2690 XL=3 

2700 A*="GAUCHE" 

2710 IF J0UEUR=2 THEN 2740 
2720 A*="DROITE" 

2730 XL=20 
2740 GOSUB 890 
2750 YL=21 
2760 XL=20 
2770 A*=" 

2780 IF J0UEUR=2 THEN 2800 

2790 XL=3 

2800 GOSUB 890 

2810 RETURN 

2820 REM 

2830 REM 

2840 REM 


46 




2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 


CALL CLEAR 
CALL SCREEN(l) 

IF J<1>=J<2)THEN 2920 

A*="C'EST LA DROITE QUI GAGNE" 

IF J<1)>J(2)THEN 2930 

A*="C'EST LA GAUCHE QUI GAGNE" 

GOTO 2930 

A$="EGALITE" 


2930 XL=2 

2940 YL=10 

2950 GOSUB 890 

2960 FOR T=1 TO 200 

2970 NEXT T 

2980 CALL KEY< 5,R,E> 

2990 IF E=0 THEN 2980 ELSE 100 


COMMENTAIRES 

Ligne 100 à 
Ligne 140 à 
graphiques 
Ligne 410 à 


130 : présentation du jeu 
390 : datas des caractères 


l'introduction du 
Ligne 880 A 980 : 
de l'écran 
Ligne 1000 à 1530 
Ligne 1600 à 2990 


jeu 

affichage d'une partie 

: début du jeu 
: réflexion de 


680 : affichage de 


l'ordinateur et tests de votre jeu 


ZX 81 


POEME 


Donnez dans l'ordre : 
dix noms, dix verbes, dix compléments, 

• et ce programme 

fabriquera automatiquement des phrases inoubliables ! 



10 

20 

25 

30 

1000 

1005 

1010 

1015 

1017 

1020 

1025 

1030 

1050 

1060 

1080 

1090 

1100 

1110 

1120 

1130 


REM WW***************** 

DIM R*C 10;20) 

DIM B*< 10,20) 

DIM C$<10;20 ) 

PRINT "DONNER DIX NOMS >TEL QUE =" 

PR INT 

PRINT "LH VRCHE ,LE MOUTON ,Lfl THBLE. .. " 

PRINT 

PRINT 

FOR X=1 T0 10 

PRINT "NUMERO ";X;" "> 

INPUT R$<X> 

PRINT H$e.X> 

NEXT X 
CLS 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


•OK" 

■DONNER 10 VERBES RU PRESENT ..TEL QUE 
■MRNGE >SE CHRNGE ..." 
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1140 FOR X=1 TO 10 

1150 PRINT "NUMERO "iXi" "i 

1160 INPUT B$<X) 

1170 PR INT B5KX) 

1180 NEXT X 
1130 CLS 

1200 PRINT "DONNER 10 COMPLEMENTS,TEL QUE *" 

1210 PR INT "fi LFI PECHE , AVEC MA SOEUR ..." 

1220 PRINT 

1230 PRINT 

1240 FOR X=1 TO 10 

1250 PRINT "NUMERO ";X;" "j 

1260 INPUT C$< X > 

1270 PRINT C$<X> 

1280 NEXT X 
1390 CLS 

1400 PRINT "MERCI ." 

1410 PRINT "APPUYER UNE TOUCHE = " 

1420 PRINT " 0 POUR STOPER " 

1430 IF INKEY$="" THEN GO TO 1430 
1440 IF INKEY$="0" THEN GO TO 1600 
1450 PRINT fi$<INT (RND#10>+1> 

1460 PRINT B$<INT <RND*10>+1> 

1470 PRINT C$(INT <RND#10>+l> 

1475 IF INKEY$="" THEN GO TO 1475 
1510 GO TO 1390 
1600 STOP 


COMMENTAIRES : 


Ligne 10 à 30 s initialisation du 
programme 

Ligne 1000 à 1090 : entrée des 10 noms 
Ligne 1100 à 1190 : entrée des 10 verbes 


Ligne 1200 à 1390 : entrée des 10 
compléments 

Ligne 1400 à 1470 : affichage de la 
phrase 

Ligne 1475 à 1510 ! attente pour la 
phrase suivante 


SPLASH DOWN 

Réalisez le saut de votre vie 
(ou de votre mort) 

en indiquant simplement à l'ordinateur 
la hauteur 

et la longueur de votre saut. 

Et n'oubliez pas que la piscine est le lieu théorique 

de votre arrivée ! 


•1 

D L" Ivi 


1 Ü Ci M 

T MPI IT » Uwl ITCTI IC' ( Ci—”' i : ", H 

1 

•“I 

ktn 

REM 

POUR ZX81 

X üüü 

1010 
i ni c 

XllrU i nnu l C'Jls V i , n 

INPUT "LONGUEUR <0-7 > = ",L 

DDTI.IT Cl T a Cl ■ " ornoc : " • c 

O 

4 

cr 

kfc.Pl 

REM 

tri r* m 


1 0 1 j 
1020 

r K1N 1 Ml 0 .• 0 > OL’UPtfc. • .' ■-> 

GO SUB 9000 

ET no V— 1 Ci TH *30 

.j 

6 

kfc.il 

REM 

ri r m 

PLONGEON 

6010 

ÆCiOCi 

rJJK a— 10 IU £0 

PR INT AT x, 2.; "1 Vu 1" 
kjp vt y 

10 

11 

900 

960 

970 

980 

kfc.Pl 

LET 

CLS 

S=0 

6000 

6050 

6060 

Pitrt 1 n 

REM RFF PLONGEOIR 

GU c 
REM 
REM 
REM 

IJd 6000 

ENTREE DES PARAMETRES 

60 i 0 
6080 
6100 
6200 

REM 

PR INT AT. 3 , 0i" 
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6300 PRINT RT 8,10;">PLONGEON<" 
6900 RETURN_ 

9000 rem WÊÊmammmÊÊÊmmmmKtÊm 

9005 REM GESTION DU PLONGEUR 

9007 rem wmmmmmamÊmÊÊmmmm 

9010 PR INT RT 8, 12 J " I" 

9020 PR INT RT 7,12;" I" 

9050 LET Y=12 

9100 FOR X=7 TO 7-H STEP -1 
9115 LET Y=Y+1 
9120 PAUSE 10 
9200 PR INT RT X/ï’J " I" 

9300 PR INT RT X+l > Y; " I" 

9310 PRINT RT X+2,Y-l;" " 

9313 PR INT RT X+1,Y-1;" " 

9315 PRINT RT X,Y-1;“ " 

9355 NEXT X 

9360 LET 0=X 

9400 FOR X=0 TO 7 

9410 PAUSE 10 

9415 LET Y=Y+1 

9500 PR INT RT X, Y; " I'* 


9510 

9515 

9517 

9519 

9530 

9600 

9610 

9650 

9660 

9665 

9667 

9700 

9750 

9760 

9770 

9800 

9810 

9850 

9860 

9870 

9880 

9899 

9900 
9910 


PR INT RT X+1, Y 11 I" 

PR INT RT X-l,Y-2.i " 
PR INT RT X,Y-2.i" 

PR INT RT X,Y--3.;" 
HEXT X 

FOR X=8 TO 19 
PAUSE 10 


X > Y+1 ; " H" 
X+l .■ Y+l; " I 
X~ 1 , Y" " 

X-2,Y;" " 


PRINT RT 
PRINT RT 
PRIAT RT 
PRIAT RT 
AEXT X __ 

rem mmmmmmmimMm 

REM CALCUL ET FIN 

REM ■■■■■■■IB 


IF Y>22 THEN GO TO 9900 
IF Y<14 THEN GO TO 9900 
PRIAT RT 7j 2i "GAGNE" 

LET S=S+1 
INPUT "ENCORE?", 

IF R$="O" THEN GO TO 11 
STOP 

PRIAT RT 19,25.: "RIE" 

GO TO 9870 


COMMENTAI RES : 

Ligne 1 à 900 : initialisation des 
variables 

Ligne 960 à 6030 s entrée des paramètres 


Ligne 6050 à 6900 : sous routine 
d'aftichage du plongeoire 
Ligne 9000 à 9700 : a-f-fichage de saut 
Ligne 9750 à 9910 : calcul et -tin de la 
partie 


—ZX 81 - 

PIEGE 


Évitez les * et attrapez les $ 
si vous ne voulez pas mourir dans des délais trop brefs... 
Pour vous déplacer, utilisez les touches 
5 pour aller à gauche, 8 pour aller à droite._ 


?*? 


1 LET 0=3= LET y=0= LET IN=1= GO SUB 4000= PRUSE 1000= GO SUB 2000 
o PL3 

10 print RT 0,0.= rrrrrrrrrrrrrrrrrrrrrrrrrrrrrFr 
20 pr i ht RT 21,0;" irTTn~rrmvrrrrrrrrn~rn~rr> rm = i 
1000 REM ?^Î?????????????????????T???????T7T???????Î???????Î? r'=f? 

.7'??? ’ PROGRAMME ???? 

77777777777î77777777?777?7?77?77777777T77?7-??77777??7??7?77777?7 

ièiè ÎF iNK.EŸ*=="5" THEN IF a>0 THEN LET a=y-l = PRINT RT 15,a;"JFi» " 

1 tf T NkFYS="f"! n THEN IF 4 ^2^ THEN LET y = y + l : PRINT RT 15.» y ■Ffc 

1040 IF O>5 THEN PRINT RT R,B;" "; RT fl+1,B;"#"= LET fl=R+l= IF R=19 THEN PRINT RT 

4 Q p. n " . I FJ TH=1 

1045 IF 0>5 THEN IF B=Y THEN IF R+l=15 THEN PRUSE 100= PRUSE 100= CLS 
10,14;"PERDU"= PAUSE 100= PRUSE 100= GO TO 1 


PRINT RT 
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1047 IF Q<5 THEN IF B=Y THEN IF A+l=15 THEN PAUSE 100' PAUSE 100' CLS * PRINT AT 
10;14;"GAGNE" ! PAUSE 100' GO TO 1 

1050 IF Q<5 THEN PRINT AT A; EU" ";AT h-t/B/"*"« LET A=A+1' IF A=19 THEN PRINT AT 
19/B;" "» LET IN=1 
1100 IF IN=1 THEN GO SUB 2000 

1999 GO TO 1000 

2000 REH 777777777777777777777777777777777777777777777777777777777 

. 7777 . ???? OBSTACLES ?? 

77 77777777777777777^77777777777777777777777777777777 

7777777777777777 

2010 LET IN=0' LET A=l' LET B=' (RND*31> = LET 0=INT <RND*10> 

3999 RETURN 

4000 REM ^T?? 7 ????????????????r????????????????????7???????????77? 

’???? ' PRESENTATION ???? ?? 

?????????????????7??'î'??????????????7????????777???77?7777777???7 

40iè CLS 

4020 FOR X=0 TO 21' PRINT AT X, 00; "WWWftWMWtfMWWWMWW"' NEXT X 
4100 PRINT AT 5/4;"PIEGE '"/AT 7, 5/"JEU D'ACTION POUR ZX81 16K" 

4110 PRINT AT 10/4/"COMMANDES : ; AT 12/5;"DROITE 8"/AT 14/5;"GAUCHE 8" 

4120 PRINT AT 16/5;"EVITER *"/AT 18/5;"ATTRAPER *" 

4200 RETURN 



COMMENTAIRES : 

Ce programme a été écrit pour Spectrum, 
il -faut donc pour le ZX 81, n'écrire 
qu'une instruction par ligne. 

Ligne 1 : initialisation de l'écran 


Ligne 10 à 20 : a-f-fichage du décor 


Ligne 1010 à 1020 
Ligne 1040 à 1100 
du jeu 

Ligne 2000 à 3999 
obstacles 
Ligne 4010 à 4200 


test du clavier 
routine principale 

tirage aléatoire de; 

présentation du jeu 


TIR A L’ARC 

Robin des bois moderne, touchez dix fois de suite 
une cible qui se déplace de haut en bas 
sur la droite de votre écran. 

Pour tirer, il suffit de presser la touche T, 
dès que la cible est devant vous. 


2 CLS 

3 LET G=0 
5 CLS 

10 LET fl=0 
15 LET S=5 

100 PRINT RT 10/0 J" P" 


110 PRINT " O P" 

120 PRINT " Omi" 

130 PRINT " m I" 

140 PRINT " «V H" 

150 LET X=INT'CRND*2!) 
200 FOR F=X TO 40 
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210 PRIHT RT <F-2)/2,29;" " 

215 IF IHKEY$="T" THEN LET R=1 
220 PR INT RT F/2,29 ; " 

225 IF R=1 THEN GO SU6 1000 
230 NEXT F 
240 GO TO 3333 
1000 PRINT RT 12,S;" ->" 

1010 LET S=S+2 

1011 IF F=24 HND <5=29 OR 5* *23,) THEN GO SUB 2000 
1020 IF 5>28 THEN LET R=0 

1030 IF 3>23 THEN LET S=5 
1040 RETIJRN 
1050 GO TO 200 
2000 LET G=G+1 

2010 PR INT RT 0,10;“SCORE :";G;" ", 

2011 IF G*10 THEN GO TO 3000 
2020 RETIJRN 

3000 PR INT " #*###*#*#** BRAVO #**#******" 

3010 STOP 
3333 GO TO 5 


COMMENTAIRES : 

Ligne 2 à 15 : initialisation de l'écran 
Ligne 100 à 140 : a-f-fichage de votre 
petit personnage 

Ligne 150 : tirage aléatoire de la 
position de la cible 


Ligne 210 : e-f-facement de la cible 
Ligne 215 : test du clavier 
Ligne 220 : a-f-fichage ae la cible 
Ligne 1000 à 1010 : af-fichage du tir 
Ligne 1011 à 1040 : test de -fin du tir 
Ligne 2000 à 2011 : calcul du score 
Ligne 2020 à 9999 : -fin de la partie 


ZX81 


LEM 


Menez à bien l'alunissage de votre LEM. 

Pour ralentir la chute de ce dernier, pressez la touche 7 
qui déclenchera la mise à feu de votre réacteur. 


1 0 R E M ? ? Z Z 7 7 77777777777 7 777777777777777'7777777777777777777777777 

• j-jiiii .î N î T i HL i SflT ION.?????? ’ 

' 777777777777777777777777777777777777777777777 ? 7777777?777777777 


20 LET >i=0 ■ LET Y* 15 
30 LET VIT=0 
40 PRINT AT 21,0;"I 


IPtfl REM 7777777777777777777777777777777777777777777777777777777777 

' 7777.PROGRAMME.???? 

77777777777 77 7777 77 77 77777 ?7777777777777- 7-777' 7 7777777--7'7 7777777777' 7 
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* 


200 if VIT>70 THEH LET X=X+1 : GO SUB 1000 
210 LET VIT=VIT+1 

220 IF INKEY$="7" THEH LET VIT=VIT-2= GO SUB 2000: IF X>=0 THEH IF VITC-20 THEH 
GO SUB 1500; LET X*X-l 
4O0 IF Y,= 17 THEH GO TO 900 
800 GO TO 100 

900 IF VIT>60 THEH FRIHT HT 0,0;"SCRRSH"= GO TO 960 
910 IF VIT< 0 THEH FRI HT RT 0, 0;"SCRASH" = GO TO 960 
920 FRI HT " GflGHE " : PRIJSE 1000 •’ CLERR : GO TO 1 
960 PR I HT RT 19, Y; "■ SI" ; RT 20,Y;"« P" 

965 FRI HT RT 5,0.i"UHE AUTRE?" 

970 IF IHKEYS="0" THEH CLS « GO TO 1 
975 IF IHKEY$="H" THEH STOP 
980 GO TO 970 

IRCiO 7 ? -77 7777 ????????????????????????????????????????????????? 

. ????' AFFICHAGE'L.E.M ???? ?î 

•?•??•?■?•?■??•?■': , ?7?77-7'???'7'???????????????????????????????????????? 

1001 PRIÂT RT X,y" 

1010 PRIHT RT x+l,y j 
1020 PRIHT RT x+2, y ; "W‘ 

1030 PRIHT RT x+3,y,"rt" 

1100 RETURH 

1 REM ????? 77 ? 7 ?????????????????????????????'??????????????????? 

'???? AFFICHAGE L.E.M MOHTEE ???? ?? 

??????????????????????????????????????YYY??????????????????????? 

1510 PRIHT RT X+i .■ y i 
1520 PRIHT RT x+2, y;"»" 

1530 PRIHT RT x+3,y;"rt" 

1540 PRIHT RT x+4,y;“ " 

1900 RETURH 

2000 REM ? 777777777777 ???????????????????????????????????????????? 

‘ .???? 'AFFICHAGE FLAMMES " ???? ?? 

7 T ?? ??????????????? ?????????????????????? ; ??? 
2010PRIHTATX+4,'y, : ", , " 


2020 RETURH 


COMMENTAIRES : 

Ligne 10 à 40 : initialisation des 
variables 

Ligne 100 à 200 : augmentation de la 
uitesse 

Ligne 220 : test du clavier, touche 7 
Ligne 900 à 910 : test du crash 


Ligne 965 4 980 i test d'une autre 
partie 

Ligne 1000 à 1100 : affichage du lem 
Ligne 1500 à 1900 : affichage du lem en 
montée 

Ligne 2000 à 2020 : affichage de la 
flamme 
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METEORES 

Poursuivez sans trêve un météorite. 

Celui qui «tiendra» le plus longtemps aura gagné... 
Pour vous déplacer, utilisez les touches : 

5 pour aller à gauche, I pour aller vers le haut, 

7 pour aller vers le bas et 8 pour aller à droite. 



5 REH TILT 

7 REH INITIALISATION 
15 LET X=4 
20 LET A=1080 
25 LET Y=4 
30 LET B"10 
35 LET D=16 

40 REH DECOR. _ 

60 PR INT HT 17,0; " ■ÜHHBHBMMBBHH 
70 FOR C=0 TO 17 
75 REH HFFICHRGE 
30 PRINT HT C,27; 

95 PRINT RT 21,0;"TEHPS => " 

100 NEXT C 

105 PRINT RT 21,10;" 

107 PRINT HT 21,10;H 
110 PRINT HT D,B;"«V" 

116 PRINT RT K,Y;" " 

117 LET X=K+1 

113 IF X=15 THEN LET X=-X 

119 LET Y=Y+1 

120 IF Y=23 THEN LET Y=-Y 
122 PRINT HT X,Y; M B" 

125 IF X=D RND Y=B THEN GO TO 600 

126 1F X=D-1 RND Y=B THEN GO TO 600 

127 PRINT HT D,B;" " 

128 REH TEST CLAVIER 

130 IF INKEYS="8" HND B<25 THEN LET B=B+1 

135 IF INKEYÏ="6" HND D<16 THEN LET D=D+1 

140 IF INKEYÎ="5" HND B>1 THEN LET B=B-1 

145 IF INKEYS="7" HND D>1 THEN LET D=D-1 

150 LET H=H-1 

160 IF R=0 THEN GO TO 600 

500 GO TO 105 

600 PRINT HT 21,0;"RECUPERATION DU VHISSRUX EN" 
610 PRINT HT 21,25;1000-H 
615 FOR Z=0 TO 150 
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617 NEXT 2 

620 IF INKEYï="" THEN GO TO 620 
700 PRINT HT 21,0;"APPUYEZ SUR UNE TOUCHE 
710 FOR 2=0 TO 130 
720 NEXT 2 

730 IF INKEY5="" THEN GO TO 730 
300 RIJN _ 

COMMENTAIRES : 

Ligne 5 à 40 : initialisation des 
variables 

Ligne «60 à 116 : affichage de l'écran 


Ligne 117 à 127 : boucle principale 
Ligne 128 à 500 : test du clavier 
Ligne 600 à 800 : fin de la partie 


-- ZX 81 - 

VIADUC EN FOLIE 

Arriverez-vous à faire traverser la rivière à toutes 
les jeunes filles qui se présentent ? 

Pour placer un pont sous leurs pas, 
utilisez les touches A pour monter, Z pour descendre. 




10 

13 

20 

23 

23 

27 

28 
30 
40 
70 

100 

110 

.120 

123 

130 

132 

135 

150 

135 

160 

170 

200 

203 

205 

207 


REM 

REM INITIALISATION 
LET H=16 
LET S=0 
LET B=10 
LET C=23 
LET D=10 
LET T=0 
REM DECORS 


FOR X=4 TO 20 
PR INT RT X, 0.: " 
NEXT X 

FR INT HT 4,0.;" 



■ 


■" 













FOR X=8 TO 16 STEP 4 
PR INT RT X,0.i "I 
NEXT X 

PRINT HT H,14;” 

REM TEST DU CLRVIER 

IF INKEY$="H" HND H>3 THEN LET R=fl-4 

IF INKEY$="2" HND fl<16 THEN LET H=H+4 
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208 

REM RFFICHflGE 



210 

PRIHT RT 10,C;" 0 " 



211 

PRINT RT 14,B;" 0 " 



212 

PRINT RT 6, D;" D " 



215 

PRINT RT 20,8jS 



217 

PRINT RT 20,22iT 



219 

PRINT RT R, 14.; "Wmm 



• 250 

REM TEST 



300 

IF T-3 THEN GO TO 1500 



310 

LET C=C+0.2+(RND^S/200> 



312 

LET D=D-< 0. 2+C RND:*S/200 > ) 



315 

LET B=B-<RND*S/200 ? 



320 

IF 025 THEN PRINT RT 10, C, " 

•1 


322 

IF B<2 THEN PRINT RT 14,B;" 



323 

IF D<3 THEN PRINT RT 6,D;" 



324 

IF D<3 THEN LET D=26 



325 

IF 025 THEN LET C=2 



350 

IF B<2 THEN LET B=26 



400 

IF B>13 HND B<17 RND R<>16 THEN 

LET T=T+1 


405 

IF B>13 RND B< 17 RND ROI6 THEN 

PRINT RT 14,B;" 

II 

407 

IF B>13 RND B<17 RND R<>16 THEN 

LET B=26 


410 

IF 013 RND C< 17 HND R<>12 THEN 

LET T=T+1 


415 

IF 013 RND C< 17 RND R<>12 THEN 

PRINT RT 10,C;" 

II 

420 

IF 013 HND C< 17 RND R<>12 THEN 

LET C=2 


500 

IF D>13 RND D<17 RND R<>8 THEN 

LET T=T+1 


510 

IF D>13 RND D<17 HND R<>8 THEN 

PRINT RT 6,D;" 

II 

520 

IF D>13 RND D<17 RND R<>8 THEN 

LET D=26 


900 

LET S=S+1 



1000 

GO TO 200 



1500 

FOR X=0 TO 150 



1510 

NEXT X 



1520 

PRINT RT 0,0;"APPUYEZ SUR UNE TOUCHE" 


1530 

IF INKEYÏ*"" THEN GO TO 1530 



1540 

RUN 



COMMENTAIRES : 

Ligne 203 à 207 i 

test du clavier 



Ligne 208 à 219 : 

a-f-fichage du décor 

Ligne 

10 à 30 : initialisation des 

Ligne 300 à 520 : 

déplacements des 

variables 

jeunes -filles et 

test de col 1ision 

Ligne 

40 à 200 : tracé du décor 

Ligne 1000 à 1540 

: -fin de la parti e 


z .a or 



BASQUET 

Redécouvrez les joies du basket... 



sur votre écran. 



Les Harlem Globe Trotters 



ne jouent pas mieux que votre ordinateur. 


Mais vous, serez-vous a la hauteur? 






1 Ktl'l 

2 REM 

POUR 2X81 

50 FOR F=0 TO 21 


3 REM 


55 PRINT AT F,12; 

"BASKET" 

4 REM 


56 PAUSE 4 


5 REM 


60 NEXT F 


6 REM 

BASKET 

70 FOR F=0 TO 21 


7 REM 


75 PRINT AT F,12; 

ii il 

8 REM 


76 PAUSE 4 


S REM 

PRESENTATION 

80 NEXT F 
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81 

82 

83 

85 

86 
87 

89 

90 

91 

92 
5-3 
94 

100 

105 

110 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7150 

7160 

7200 


REM 

REM 

REM 


INSTRUCTIONS 


PR INT RT 10.. 4; "APPUYEZ SUR UNE TOUCHE 
PR INT AT 11,7;"JUSQU R ATTEINDRE" 

PRINT RT 12-5;"Lfl PUISSANCE DESIREE" 
PRUSE 300 

LET S=0 _ 

REM ■ ——— 

rem 

REM INITIALISATION 

REM 

CLS 

LET D=0 

GO SUB 7000 : GO SUE 8000- GO TO 9000 
RËM X X X X X X X X X X X > 

REM 
REM 
REM 
REM 
REM 

REM X X X X X X X X X X X > 

FOR F=5 TO 8 
PRINT AT F-24;"I" 

NEXT F 

PRINT AT 9,24;"fc-dB" 

FOR F=10 TO 20 
PRINT AT F-27; 11 ■" 

NEXT F 

PRINT AT 7-22;"I" 

PRINT AT 8-22; "W_ 

print ht 21 - 0 ;"wmmmmmm 


AFFICHAGE DU PANIER 


7230 FOR F=1 TÜ 20 
7240 PRINT AT F-0;"l" 
7250 PRINT AT F-31;" I" 
7260 NEXT F 
7270 PRINT RT 0-0;' 


1SKETI 


7300 RETURN 

8000 REM < X X X X X X X X X X X 

8010 REM 

8020 REM AFFICHAGE JOUEUR 
8030 REM 
8040 REM 

8050 REM ( X X X. X X X X X X X X 

8060 PRINT AT 12-4;"*" 

8070 PRINT RT 13-4;"»" 

8080 PRINT HT 14-4;" ■ 

8090 PRINT AT 15,4; 

8100 PRINT AT 16,4; "BT' 

8110 PRINT AT 17,4; "BP" 

8120 PRINT AT 18-4; "B" 

8130 PRINT AT 19-4;" ■" 

8140 PRINT AT 20-4;"%" 

9000 REM < X X X X X X X X X X X 
9010 REM 


9020 

9030 

9040 

9050 

9060 

9070 

9100 

9110 

9115 

9120 

9130 

9140 

9150 

9190 

9200 

9250 

9300 

9350 

9360 

9370 

9380 

9400 

9450 

9460 

9500 

9505 

9510 

9515 

9520 

9530 

9560 

9600 

9610 

9615 

9620 

9630 

9640 

9670 

9680 

9681 

9682 

9683 
9700 
9800 
9810 

9815 

9816 
9820 
9890 
9895 
9910 
9950 
9960 
9970 

9975 

9976 
9980 


REM 


LANCER DE LA BALLE 


REM 
REM 
REM 

REM < X X X X X X X X X X X 

PRINT AT 1-1 ;"PUISSANCE : 0" 

IF INKEYS="" THEN GO TO 9100 

IF INKEY$< >"" THEN GO TO 9120 

GO TO 9150 

LET D=D+l- / 4 

PRINT AT 1 -11 ; O 

GO TO 9110 

LET D=INT D 

LET K=D 

IF D>90 THEN GO TO 9100 
LET G=8 

FOR F=13 TO 13-D STEP -1 
PRINT AT F,G; 

PRINT HT F+l-G-1-" " 

PAUSE 3 

IF F=2 THEN GO TO 9890 
LET G=G+1 
NEXT F 

PRINT AT F+l-G-1;" " 

FOR D=1 TO 3 
PRUSE 3 
PRINT AT F-G; 

PRINT RT F-G-l;" " 

LET G=G+1 
NEXT D 

PRINT AT F,G-l;" " 

FOR D=F TO 21 
PRINT AT D - G;"■" 

PRINT AT D-l-G-1;" " 

PAUSE 3 
LET G=G+1 

IF G=24 THEN GO TO 9700 

NEXT D_ 

rem 

REM ANALYSE ET RESULTAT 

REM ^B ——B—B—B 
REM BBBBBBMB 

IF K>7 THEN GO TO 9900 

IF F<3 THEN PRINT AT 3-1;"TROP HAUT' 

IF F>3 THEN PRINT AT 3-1-"TROP BAS" 

FOR F=1 TO 100 

NEXT F 

GO TO 100 

PRINT AT F-l-G+1;” " 

GO TO 9800 

IF K>9 THEN GO TO 9800 
PRINT HT 3-l;"B0N TIR!" 

LET S=S+1 

PRINT AT 4-1 ;"SCORE ! "; S 
FOR F=1 TO 200 
NEXT F 
GO TO 100 


COMMENTAIRES : 

Ligne 9 à 80 : présentation du jeu 
Ligne 81 à 90 i instruction du jeu 
Ligne 91 à 110 : initialisation du jeu 


Ligne 7000 à 7300 : sous programme 
d'affichage du. panier 

Ligne 8000 à 8140 s affichage du joueur 
Ligne 9000 à 9670 : lancer de la balle 
Ligne 9680 à 9980 : analyse et résultat 






















ZX 81 


ZX 600 


Aidez un sportif asthmatique 
à parcourir, les 600 mètres fatidiques d'une course 

d'endurance. 

Respectez le temps minimum imparti à la course, 
mais ne tuez pas votre « poulain » par des efforts 

trop intensifs... 

6 = ralentir, 7 = accélérer. 





500 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM ■ 
C-LS 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
IF 


ZK81 


PROGRAMME MARATHON MAN 


PRESENTATION 


AT 
AT 
AT 
AT 
AT 

RT ISO 
INKEY$="" 


10 , 

14, 

15, 

16, 
18, 


< 

3 

3. 

3 

1 


"MARATHON-MAN" 

"DANS CE JEU DE COURSE (500 M>" 
"APPUYEZ SUR 8 POUR ACCELERER" 
"APPUYEZ SUR 5 POUR RALENTIR" 
"MAIS ATTENTION R VOTRE ENERGIE! 
.."VOUS DISPOSEZ DE 230 SECONDES" 
THEN GO T0 400 


CLS 
REM H 
REM 
REM ■ 
LET H= 


AFFICHAGE DE L’ECRAN 


1010 

1020 

1030 

1800 

1810 

1820 


0 

AT 

AT 

AT 

AT 

AT 

AT 

AT 

AT 

AT 

AT 

AT 


"h" 

H pii 
Il ^li 
Il ^>11 
n |^ii 


PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 

PRINT _ 

rem MmmmmmÊÊÊmKË 

REM INITIALISATION 
REM VARIABLES 


9,0;"■ 

16,0.: " 

10 , 10 .: 

11 , 10 ; 

12 , 10 ; 

13,10; 

14,10; 

17,0;"TEMPS" 
19,0;"VITESSE" 
18,0;"METRES" 
20,0;"ENERGIE" 


DES 


































1830 

1300 

1910 

1320 

1930 

2000 

2001 

2002 

2003 

2004 

2005 

2006 
2010 
2015 
2020 
2030 
2035 
2040 
2300 
2400 
2405 
2407 
2410 
2420 
2430 
2440 
2445 
2450 
2460 
£470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
£300 
2999 

5000 

5001 

5003 

5004 
5010 
5020 
5030 
5100 

5105 

5106 



rem mÊmam 

LET F=0 
LET M=0 
LET T=0 
LET E-1500 
LET C=0 
LET P=0 
REM 
REM 

REM _ 

IF C=3 THEH GO TO 5200 
PRINT AT 1,0*“fi VOS MARQUES" 

GO SUB 5000 

IF P=1 THEH GO TO 2001 

PRINT AT 1,0;"PRET 

GO SUB 5000 

IF F'=l THEN GO TO 2001 

PRINT AT 1,0;"PARTEZ" 

IF INKEY$="8" THEN GO SUB 8000 

IF INKEY$="5" THEN LET F=F-1 

IF W=1 THEN GO SUB 9000 

IF W=0 THEN GO SUB 9100 

LET T=T+l/'2 

IF F>1 THEN LET E=E-1 

IF F>10 THEN LET E=E-2 

IF F>30 THEN LET E=E-7 

IF E<0 THEN GO TO 9200 

IF F>1 THEN LET M=M+l/8 

IF F>10 THEN LET M=M+1 

IF F>30 THEN LET M=M+2 

IF M>500, THEN GO TO 9600 

PRINT AT 17,10;T 

PRINT AT 19,10;F 

PRINT AT 18,10;M 

PRINT AT 20,10;E 

PRINT AT 20,10;" 

PRIAT AT 2O,10;E 
GO TO 2300 

STOP_ 

REM 

REM SOUS ROUTINE DE 
REM 


5107 


5109 

5110 
5120 
5130 
5200 
5210 
5220 
5230 
8010 
8020 
9000 


FOR X=0 TO 150 
IF INKEY*<>"" THEN GO TO 5100 
N EXT X 
RETURN 

PRINT AT 2,0;"FAUX DEPART" 

FOR G=0 TO 100 
NEXT G 

PRINT AT 2,0;" 

PRINT AT 1,0;" 

LET C=C+1 
LET P=1 
RETURN 

PRINT AT 3,0;"3 FAUX DEPARTS ELIMINE" 


FOR G=Q TO 400 
NEXT G 
GO TO 1 
LET F=F+1 
RETURN 

IF F=0 THEN RETURN 
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9005 

9010 

9020 

9030 

9100 

9110 

9120 

9125 

9130 

9150 

9151 

9152 
9200 
9300 
9350 
9360 
9600 
9700 
9750 
9800 
9900 


LET W=0 

PRINT flï .. 

PR INT RT 16,0; ". ■■■■■*■ . 

RETIJRN 

IF F=0 THEH RETURN 
LET W=1 

PRINT RT 16,0;.... 

PRINT RT 9,0;.. 

RETURN 

REM 

REM FIN DU JEU 

REM 

PRINT RT 8,0;"VOUS ETES EPUISE PERDU" 
FOR X=0 TO 300 
NEXT X 
GO TO 9800 

PRINT RT 8,0;"BRAVO VOUS AVEZ GAGNE" 
FOR X=0 TO 400 
NEXT X 
CLS 

GO TO 1 


COMMENTAIRES : 

Ligne 40 à 150 : présentation du jeu 
Ligne 410 à 1030 : affichage de l'écran 
Ligne 1800 à 2001 : initialisation des 
variables 


! boucle principale 
: sous programme de 


Ligne 2200 à 2800 
Ligne 5000 à 9130 
jeu 

Ligne 9150 à 9900 : screen de fin de 
partie 


-ZX 81- 


JET FORCE 


Vous devez impérativement décoller de votre porte-avions. 

Et, comme d'habitude, 
les conditions météo sont déplorables. 

Indiquez soigneusement la puissance de l'avion 
et la poussée de la catapulte 



10 

20 

30 

40 

50 

60 

70 

80 

85 

90 


ZX81 

VWW/AW.WWWWA 

PORTE AVION 

WWrtWVWWWWWW 

PRESENTATION 

WWVWAWWWA V» 

PRINT AT 10,10;"PORTE AVION" 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


300 


92 PAUSE 
95 CLS 

97 REM WWyW WWWWrt 1 

98 REM INITIALISATION 

99 REM Vi SVV S Wi V AViVaVAVV 

100 LET S=0 
900 GO sue 3000 
910 GO SIJB 4000 

1000 REM WiW WV AVW .W 
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1003 

1004 

1005 

1006 

1009 

1010 
1030 
1040 
1050 
1060 
1070 
1080 
2000 
2100 

2999 

3000 
3010 
3020 
3030 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
4000 
4010 
4015 

4019 

4020 
4030 
4040 
4050 
4060 
4070 
4080 
4900 
8000 
8020 
8030 
8100 
8110 
8120 
8130 
8140 
8150 
8600 
8610 
8630 
8640 
8650 
9000 
9010 
9020 
9030 
9500 
9510 
9520 
9540 
9550 


REM 

REM 

REM 


ENTREE DES DONNEES 


REM 

LET V=1+INT <RND*10> 

PRINT RT 2.4;"VENT?";V 
INPUT "REACTEUR <1-15)".R 
PRINT RT 3.4;"REACTEUR-";R 
INPUT "CATAPULTE (1-9 )".C 
PRINT RT 4.4;"CATAPULTE : ;C 
PRINT AT 6.4;"SCORE : ";5 
GO SUB 8000 
INPUT "ENCORE?".A$ 

IF R$="0" THEN GO TO 1 
STOP 

REM lllllllllllll■llll■■ll■ 

REM AFFICHAGE CADRE 

REM IIIIIIIIIIIIHIIIIIIIII 

REM 

PRINT AT 0.0; "I 111 

FOR X=1 TO 8 
PRINT AT X.0;"I" 

PRINT AT X. 31 ; " I" 

N EXT X 

PRINT AT 9.0; "ha«——— 
RETURN 
REM 

REM PORTE AVION 
REM 

PRINT AT 21.0; 

PRINT AT 20.0; "■* 

PRINT AT 19.4; 



V 

V 


1WT 


PRINT AT 18.4; 

PRINT AT 17.3; 

PRINT AT 16.20; "i 
PRINT AT 15.21;". 

PRINT AT 15.22;". 

RETURN 
REM 

REM CALCUL 

REM _ 

IF ROV+4 THEN GO TO 8600 
IF COV-2 THEN GO TO 8600 
PRINT AT 10.4;"GAGNE" 

GO SUB 9000 
LET S=S+1 
RETURN 

PRINT AT 10.4;"PERDU" 

LET P=0 
GO SUB 9000 
GO SUB 9500 
RETURN 

FOR Y®18 TO 0 STEP -1 
PRINT AT 16.Y;"Al " 

NEXT Y 
RETURN 

FOR X=17 TO 20 
PRINT AT X.0;"dU" 

PRINT AT X-1.0;" " 

NEXT X 
RETURN 


m 






















COMMENTAIRES : 

Ligne 10 à 80 : Initialisation des 
variables numériques. 

Ligne 90 à 111 : Initialisation des 
variables alphanumériques. 

Ligne 1000 à 1040 : A-f-fichage du score. 
Ligne 2000 à 2010 : Initialisation des 
coordonnées des avions ennemis. 


Ligne 4000 à 4010 
avions. 

Ligne 4020 à 4030 
ennemis. 

Ligne 4100 à 4101 
avions. 

Ligne 4102 : Test 
1 a hauteur ). 


: A-f-fichage des 
: A-f-fichage des avions 
: Fait avancer les 
clavier < contrôle de 


THOMSON MO 5 


TRON 

Inspiré de la célèbre course de motos nucléaires 
du film «Tron», ce jeu ne vous laisse pas une seconde de répit. 
•Vous devez en effet rouler le plus 
longtemps possible 

sans toucher une des traces que vous laissez derrière vous. 

Z = gauche, E = droite, W = haut, X = bas. 



1 CLS>SCREEN0,4,4 

2 REM SPRITES ET MICRO-JEUX 1985 

3 PRINT"CE JEU EST INSPIRE DE LR CELEBRE COURSE" : PRINT : PRINT-PRINT"DE MOTO NUCLE 
RIRE DU FILM 'TRON' ." 

4 PRINT’PRINT : PRINT"VOUS DEVEZ ROULER LE PLUS LONGTEMPS"=PRINT : PRINT = PRINT"POSSI 
BLE,SANS TOUCHER UH DES MURS QUE" : PRINT«PRINTsPRINT"VOTRE MOTO LRISSE DERRIERE E 
LLE . " 

5 PRINT=PRINT:PRINT"P0UR VOUS DIRIGER,UTILISEZ Z,E ET W,X" 

6 PRINT=PRINT : PRINT : PRINT : PRINT’ATTRBl,1:PRINT"BONNE CHRNCE !!!" 

7 ATTRB0,B 

8 G0SUB51 

9 CLS ; SCREEN8,0,0 

10 REM DESSINE LE CADRE 

11 LI NE< 71 0 y-(. 312,0),4 ; LI NE-C 312,191 >, 6 = LINE-< 7,191 >, 1 : LINE-< 7,0 ), 9 

12 REM DESSINE LE CARRE 

13 80XC152,95)-<167,105),5 

14 REM INITIALISATIONS 

15 X=156 : Y=76 : R=1 : B=1 

16 REM TEST LES COLLISIONS 

17 C=POINT(X,Y)=IFC>=0THEN35 

18 REM AFFICHAGE DU POINT 

19 PSET< X, Y ), 2 

20 REM AUGMENTE LE SCORE 

21 D=D+1 

22 REM TOUS LES VINGTS POINTS DESSINE UN CARRE 

23 IFD/20=INT<D/20)THEN43 
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24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


REM CALCULE LES COORDONNEES DU PROCHAIN POINT 

-X-X+fl = Y=V+B 

REM TEST LE CLAVIER 

A$=INKEYÏ: IFAï=""THEN17 

IFA$="E"THENA=1 : B=-1 ; G0T017 

IFR$="X"THENA=1 : B=1 : GOTO17 

IFA$="W"THEHA=-J. : B=1 : G0T017 

IFAÏ="Z"THENA=-1 : B=-1 : G0T017 

REM BOUCLE LE JEU 

GQT017 

REM SON 

PLAY"RI02D0MIREMISIDO" 

CLS ^ LOCATE0?i| M 0 fl PRINT"PERDU/VOUS AVEZ"; Di "POINTS" 
PRINT=PRINT=PRINT"UNE AUTRE PARTIE ?" 

G0SUB51 

IFR$="N"THENCLS : END 
IFHÏ="O"THENRUN 
G0T039 

Q= I NT (. RND< 1>*5)= IFQ< >2THEH25 
N=INT< RNDC 1 )*37 )*3+8 
0= I NT (. RNDC 1 >*22>*3+S 
M=INT<RND<1>*16> 

80X< N/0)-( N+7 > 0+7 M 
PLAY"A102D0" 

G0TH25 

REM ATTEND UN CARACTERE ET RANGE LE DANS Aï 
RS=INPUT*<1> 

RETURN 


COMMENTAIRES : 

Ligne 1 à 6 : présentation du jeu 
Ligne 11 s dessin du cadre du jeu 
Ligne 13 : dessin d'un carré à l'écran 
Ligne 15 : initialisations des variables 
du jeu 

Ligne 17 : test des collisions 
votre motos et tous les autres 
Ligne 1? : affichage d'un point quand la 
moto avance 

Ligne 21 : augmente le score 


entre 
éléments 


Ligne 23 : tous les vingts points, un 
nouveau carré se trace à l'écran 
Ligne 25 : calcul les coordonnées 
nouvelles de la moto 

Ligne 27 à 31 î test du clavier pour 11 

déplacements de la moto 

Ligne 33 : suite du jeu 

Ligne 35 à 41 : musique et fin du jeu i 

cas de perte 

Ligne 43 à 49 : tracé aléatoire des 
petits carrés à l'écran 


THOMSON MO 5 


REBONDS EN FOLIE 


Dirigez une super-balle vers sa cible 
grâce à des «barres de rebond». 

Pour placer une de ces dernières, il vous suffit de presser 

une touche du clavier. 

































7 SCREEN2,0,0 
18 CLS 
29 CLEAR,,1 
40 SC=250 
51 LOCATEO,0,0 

62 DEFGR*(0 >=0,56,124,124,124,56,0,0 
73 BOX(7,0>-(312,199),4 
84 BOX(15,7)-(304,192),1 . 

?5 A=RND(1):A*=INKEY* 

106 IF A*=''"THEN95 

117 X=INT(RND(1)*36)+2 

128 Y=INT<RND<1)*22)+l 

139 LOCATEX,Y : PRINT"*"j 

150 A=INT(RND(1> *36)+2 

161 B=INT<RND<1)*22)+1 

172 E=1 :F=0 

183 LOCATEA, B: PR INT 3 * * * * 8 * * 11 

194 SC=SC-1 

205 A=A+E:B=B+F 

216 LOCATEA,B : PRINTGR*(0) ; 

227 A*=INKEY* 

238 IFA*=""THEN271 
249 IFA*="D"THEN469 
260 GOTO 502 
271 K=SCREEN(A+E,B+F) 


COMMENTAIRES : 

position d'un point à l'écran. 

Ligne 139 s Affichage de l'obstacle. 
Ligne 150 à 216 : Affichage de la balle 
au départ. 

Ligne 326 à 392 : Tests de la balle. 
Ligne 403 à 458 : Fin de la partie. 


282 IFK=32THEN183 
293 IFK=0THEN392 
304 IFK=42THEN403 
315 IFK=47THEN370 

326 REM LA BALLE RENCONTRE UN CHR*(92> 

337 LOCATEA,B : PRINT“ "; :A=A+ E:B=B+ F 

343 C=F:F=E:E=C:GOT0205 

359 REM LA BALLE RENCONTRE UN CHR*(47) 

370 LOCATEA,B:PRINT" "; :A=A+E:B=B+F 

381 C=-F s F=-E:E=C:GOTO205 

392 E=-E:F=-F:GOTOl83 

403 CLS:PRINT"SCORE : "; SC ;" POINTS" 

414 LOCATE1,20 :PRINT"COULEZ COUS REJOUER 
???“ 

425 A*=INKEY*: IFA*=""THEN425 
436 IFA*="O"THENRUN 
447 IFA*<>"N"THEN425 
458 END 

469 IFA+E<30RA+E >35THEN271 

480 IFB+F<20RB+F>22THEN271 

491 LOCATEA+E,B+F:PRINTCHR*(47);:G0T0271 

502 IFA+E<30RA+E>35THEN271 

513 IFB+F<20RB+F>22THEN271 

524 LOCATEA+E,B+F:PRINTCHR*(92);:G0T0271 


Ligne 7 à 51 : Initialisation de 
l'écran. 

Ligne 62 : Redéfinition d'un caractère 
graphique. 

Ligne 73 à 84 s Tracé du bord de 
l'écran. 

Ligne 117 à 128 : Tirage aléatoire des 


THOMSON MO S- 

POPEYE 


Aidez Popeye à rattraper tous les objets 
qui tombent sur sa droite, sur sa gauche ou... 

sur sa tête. 

Le « sailor man » se déplace grâce aux touches « < » pour aller 
à droite et « > » pour aller à gauche. 


3 LOCATEO,0,0 
14 SCREEN0,0,0 
25 CLEAR,,25 

36 DEFGR*(1)=3,7,5,7,7,3,1,15 

47 DEFGR*(2)=192,224,160,224,224,192,128 

,240 

58 DEFGR*( 3>=31,63,55,55,31,31,15,7 
69 DEFGR*(4>=248,252,236,236,248,248,240 
,224 

80 DEFGR*( 5)=0,48,56,28,14,7,3,1 

91 DEFGR*( 6) = 120,252,180,252,120,48,254, 

255 

102 DEFGR*(7)=255,127,63,31,31,31 ,7,7 
113 DEFGR*( 8) = 128,254,255,128,192,224,22 

4.224 

124 DEFGR*(9>=30,63,45,63,30,12,127,255 
135 DEFGR*(10>=0,12,28,56,112,224,192,12 

8 

146 DEFGR*(11)=1,127,255,1,3,7,7,7 
157 DEFGR*(12)=255,254,252,248,248,248,2 

24.224 

168 DEFGR*(13)=224,255,127,123,119,63,63 
,31 

179 DEFGR*(14)=7,255,126,94,110,124,124, 


248 

190 DEFGR*(15>=31,14,79,230,255,251,187, 
255 


201 DEFGR*(16)=248,250,255,239,253,239,2 
55,255 

212 DEFGR*(17)=0,8,29,159,255,248,222,25 


223 DEFGRSC18)=24,126,126,255,255,126,12 
6,24 

234 DEFGR*<19> = 128,64,60,62,63,63,30,12 
245 DEFGR*(20)=96,232,212,46,95,63,30,12 
256 DEFGR*(21)=9,10,56,63,124,248,240,96 
267 P*(2> = " “+GR*(1)+GR*(2) + " "+CHR*<8> + 
CHR*(8) + CHR*(8)+ CHR*(10)+ GR*(3)+GR*(4) 
278 P*(l)=GR*(5)+GR*(6)+" "+CHR*(8)+CHR* 
(8)+CHR*(10)+GR*(7)+GR*(8) 

289 P*(3) = " " + GR*(9) + GR*(10> + CHR*(8) + CH 

R*(8)+CHR*(8)+CHR*(10)+GR*(11)+GR*(12) 

300 CLS:SCREEN0,0,0:LOCATEO, 0,0 

311 BOXF( 71,53) -( 231,163.) , 7 

322 BOXF(96,63)-(206,143),-7 :B0X(94,61)- 

(208,144),-l 

333 C0L0R3,6:L0CATE18,16:PRINTGR*(13);GR 
*(14) 


► 
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344 L0CATE17,14 :C0L0R5:PRINTP*<2) 

355 LOCATE1 Cl, 19:C0L0R1 ,7:PRINTGR*< 18) : LO 
CATE26,19:PRINTGR*(13) 

366 C0L0R4,6 :LOCATE12,17:F0RR=1T014 : PRIN 
TGR*<17);:NEXT 

377 OM=0:DIMX<20):DIMY<20):DIMO<20):DIMD 
X(3,15):DIMDY(3,15) 

383 F0RR=1T09:READDX,DY:DX<1,R)=DX:DY(1, 
r)=DY:NEXT:F 0RR=1T08:READDX,DY:DX(2,R)-D 
X :DY< 2,R)=DY:NEXT:FORR=lTOI 5 :READDX,DY:D 
X< 3,R)=DX:DY(3,R)=DY:NEXT 
399 P=2:NO=0:PO=l 

410 A=RND:A*=INKEY*:IFA*=""THEN410 
421 08=1 : O<1) = INT< RND*3) + 1:X<0B) = 12 :Y<OB 
)=11-0<0B):P<1)=1 
432 A*=INKEY* 

443 PLAY"L3T3A1DOSI" 

454 IFA*< >","THEN 476 

465 IFP>1THENP=P-1:L0CATE17,14:C0L0R5: PR 
INTF'*< P) 

476 IFA* O". "THEN 498 

487 IFP<3THENP=P+1 :LOCATE17,14:C0L0R5: PR 
INTP*(P) 

498 IFY(0B)=13 AND 0(0B)=2THEN586 

509 X=X(OB):Y=Y(OB):X(0B)=X<OB)+DX<0<OB) 

,P(OB)):Y< OB)=Y <0B)+DY(0(0B),P(OB>):LOCA 

TEX,Y: PRINT" ":LOCATEX(OB),Y(0B):C0L0R4: 

PRINTGR*<18 + 0< OB)):P<OB)=P<OB) +1 

520 IFY(OB)=l3THEN553 

531 IFY < OB) = 16THEN586 

542 G0T0432 

553 REM 

564 IF 0C0B)=P THEN LOCATEX(OB),Y<OB): PR 
INT" ":SC=SC+1:L0CATE22,8 :PRINTSC:PLAY"T 
3L3D0REMIFASOLA":G0T0421 
575 G0T0432 

586 PLAY"A1T3L3D0REDQRED0RED0RED0RESIMIR 
EDOLAMIL204D0MIRESOLAFA" 

597 LQCATEX(OB),Y(OB):PRINT" “:MI=MI+1 
603 L0CATE22+MI,1Ü:C0L0R1:PRINTGR*<6) 

619 IFMI=3THEN641 
630 G0T0421 

641 LOCATEl6,10:C0L0R1:PRINT"PERDU" 

652 A*=INKEY*: IFA*=""THEN652 
663 RUN 

674 LOCATEO,15:FORR=OT0500:NEXT 
685 DATAI,0,1,0,1, 1 , 0 , 1,1,1,0,1,0,1,0,1, 
0,1,1,0,1,0,1,0,1,1, 1 , 1 , 1 , 1,0,1,0,1,1,0, 
1,0,1,0,1,0,1,1,1,0,1,0,1,1,1,1,0,1,0,1, 
1 ,1 ,0,1 ,0,1 ,0,1 

COMMENTAIRES : 

Ligne 3 à 25 : Dé-finition de l'écran. 
Ligne 36 à 289 : Redéfinition des 
caractères graphiques. 


Ligne 300 à 366 : Création des décors 

Ligne 377 à 443 : Programme principal 

Ligne 432 à 487 : Tests du clavier. 

Ligne 564 à 685 : Fin de la partie. 
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THOMSON MO 5 

2001 


Découvrez l'espace 2001 et ses pièges mortels. 

AJne course de «stock space» 
dans laquelle tous les concurrents sont vos ennemis. 
Pour vous déplacer, utilisez les touches du curseur droite 

et gauche. 



10 CONSOLE 0,24,,0:CLEAR 500,,4 
20 SCREEN 0,0,0:CLS 

30 COLOR 1,? : PRINT"< C > OPYRIGHT 1985 PAR 
CHAUMARTIN ET TILT "; 

40 ATTRB 1 : PRINT" *METE0R« 

50 ATTRB 0:COLOR 4,6 :PRINT:PRINT "SC0RE= 
0 NOMBRE DE VAGUES= 0 “ 

60 DEF FNR<X)=INT<RND<1>*X>+1 

70 CONSOLE 5,23:COLOR 4,3:CLS 

80 DEF GR*<05=7,25,34,92,128,135,72,112 

90 DEF GR*<15=224,152,68,58,1,225,18,12 

100 DEF GR$(25=126,129,128,64,56,5,2,1 

110 DEF GR*<35=126,129,1,2,28,160,64,128 

120 I*=CHR*< 1285+CHRUK 1295 

130 V*=CHR*<1305+CHR*<1315 

140 VX=19:VY=5:SC=0:NI=90:NV=1 

150 A*=INKEY*:IFA*<>""THENA=ASC<A*5:VX=V 

X+<<A=85-<A=95>«2 

160 IF SCREEN(VX ,L’Y 5 032 OR SCREENCVX+1, 
VY5 032 THEN SC=SC-50:PLAY"T102D0RE": IF 
SC<0 THEN GOTO 260 


COMMENTAIRES : 

Ligne 10 à 20 : Initialisation de 
l'écran. 

Ligne 30 à 70 : Présentation de l'écran. 
Ligne 80 à 130 : Redéfinition des 


170 SC=SC+10 

180 LOCATE VX,VY,0:COLOR 5,3: PRINT V* ; 

190 LOCATE 6,3:COLOR 4,6:PRINT USING"£££ 

££"; SC :LOCATE 34,3:PRINT USING"£££££";NV 

200 A$=“": FOR 1=0 TO 39 

210 IF FNR<100> >NI THEN A*=A*+I*: 1 = 1 + 1 E 

LSE A*=A*+“ " : 1 = 1+2 

220 NEXT I:A*=LEFT*<A*,405 

230 LOCATE 0,23:COLOR 4.3:PRINT A* . 

240 IF NI>10 THEN NI=NI-.5 

250 NV=NV+1 : GOTO 150 

260 PLAY "Tl02DQREMIFASOLASI03D0" 

270 SCREEN 0 

280 LOCATE 6,3:C0L0R 4,6:PRINT USING"£££ 
£ £ " ; 0 

290 COLOR 0,3.-LOCATE 0,23:PRINT "VOUS AV 
E2 PERDU . UNE AUTRE (0/N5 ?" ; 

300 A*=INKEY*:IF Aï="" THEN 300 
310 IF A*="0" THEN 70 

320 CONSOLE 0,24 :PRINT:COLOR 3,0:PRINT " 
AU REVOIR": END 

caractères graphiques. 

Ligne 150 : Test du clavier. 

Ligne 160 : Test des collisions. 

Ligne 180 à 280 : Programme principal. 
Ligne 290 à 320 : Fin de la partie. 


- THOMSON MO 5 - 

MIDWAY 

Votre ordinateur sera-t-il le plus fort dans la bataille 
navale qui va vous opposer à lui. 

Soyez le plus rapide à découvrir ses bateaux 
et tout ira pour le mieux. 

Entrez les coordonnées puis la position de vos navires 
(H pour horizontal et V pour vertical) 
et... à l'abordage. 
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SAUTEUR^LRRRY COVER & SOPHIE VflTHUX# 


0 '*m*******:m********************** 

************************************ 

1 PR INTCHR*C 12) = SCREEHI NTC RNDC 1 ) >+9,0, 0 = LOCHTEO ,0,0 
CLEHR,.9 = GQSUB57 = G0SUB47 

RESTI1RE29 = FAR I =0T09 = FORJ=0TO9 = AC I, J )=0 = READC = BU, J )=C = NEXT J « NEXTI 
C=32 = L=16 = CL=12 = GOSUB40 

FORR=10TO189~STEP î0 = BOXC120,R)-C122,R+10 ), 3+C C -1) A <R/10 > > = PLAY"A1T2L5D0RE"= NE 


2 

3 

4 

5 
S 
XT 

8 COLOR12 = L0CATE4,2 = FORI = 1T09 = FORJ=1T09 = PRINTGR*C AC J,I)); «NEXTJ = L0CRTE4,CSRLIN+1 
= NEXTI 

9 LOCATE20,8,0=PRINT"VOTRE COUP ? 

10 LOCATE20,9,0 = PRINT" 

11 A$= I NPUTSC 2 ) = A=ASC«; A$ ) 

12 IF< A<650RA>73)THEN11 

13 A=A-S4 

14 B=ASC< RIGHT$< A$,1))-48 

15 IFB-T A, B >=0THENC< A, B )=7 = PLAY " T12SILASOFAMIREDO "= GOTO 13 

16 IFCB<A,B X7 )THENC< A,B)=8 = PLAY"Tl2DÛRED0RED0D0"= G0T026 

13 COLORî =L0CflTE4,14 = F0RI = 1T09 = F0RJ=1T09 = PRINTGRÏC C< J,I)>;= NEXTJ = L0CATE4,CSRLIN+ 
1 = NEXTI 

19 A=INT<RNDC1>*9+1> = B=INT<RND<1>*9+1 ) 

20 IFA(A,B)=7THEN19 

21 IFAC A,B)=0THENAC A,B >=7 = GOTOS 

22 IFAC A,B >=8THEN19 

23 PLAY"A1T12D0REMIFANIREDO" 

24 AC A,B >=8 = G=G+1 = IFG=16THEN85 

26 COLOR1= L0CATE4,14 = FORI = 1T09 = FORJ=1T09 = PRINTGRïCCC J,I> >;= NEXTJ = L0CATE4,CSRLIN+ 
1=NËXTI 

27 H=H+1=IFH=16THEN88 

28 GOTO19 

29 DATA0,0,0,0,0,0,0,0,0,0 

30 DATA0,0,0,0,0,0,0,0,0,0 

31 DATA0,0,0,1,0,0,1,0,0,0 

32 DATA©, 0,0,2,0,0,3,0,0, 0 

33 DATA0,0,0,2,0,0,0,0,0,0 

34 DATA0,0,0,3,0,4,6,0,0,0 

35 DATA0,1,0,0,0,0,0,0,0,0 

36 DATAO,3,0,0,0,0,0,4,5,6 

37 DATA0,0,0,0,0,0,0,0,0,0 
33 DATA0,0,4,5,6,0,0,0,0,0 

39 END 

40 CC=C/S-1= LC=C L/8>-1= FORR=0TO72 STEP8 = BOXC C,L >-C C+R,L+R),CL = BOXC C+72,L+72 >~C C+ 
R, L+R ), / CL 

41 NO=INTCC RC/9>*7> = PLAY"A1T2L4"+N0$CNO > 

42 RC=R/8 = LOCATECC+RC,LC = PRINTCHR$C64+RC) 

43 LOCATECC-1,LC+RC = PRINTSTR$C RC) 

44 NEXT 

45 LOCATECC,LC,0 = COLOR3 = PRINTCHR$C92) 

46 RETURN 


















































48 DEF GRï<0)=255,128,123,128,12S,123,123,128 
43 DEF GR$C1>=255,136,156,156,190,190,255,255 

50 DEF GR$C2 >=255,255,227,235,227,255,255,255 

51 DEF GR$C 3>=255,255,255,255,255,190,130,136 

52 DEF GR$C4>=255,131,143,191,255,191,143,131 

53 DEF GR$( 5 >=255,255,255, 8tHC7, &HD7, &HC7,255,255 

54 DEF GR$C 6 >=255, &HF8, S<HFE, &HFE, 255,254, &HFE, 243 

55 DEF GR$<7>=255, 123, 12é,&H3C,S:H9C,8,H9C, 128, 128 

56 DEF GR$C 8 >=255, &HC1,&HR2,&H94, &HS3, &H94, &HR2, &HC1 

57 REST0RE59 

53 FQRR=0TQ6 = READfl$ = HO$C R >=R$:NEXT 

59 DRTRDQ,RE,MI,Ffl,SO,LA, SI 

60 RETURH 

61 RESTQRE30 

62 F0RR=1TÜ3 

63 RERDLG , B* = LOCRTE20 , 3 : PRINTSPCC 20 > 

64 FÜRT= 1TOR ^ LOCRTE20, 8 : PRINT"COORDONNEES DE VOTRE " : LOCRTE20,9 : PRINTB$" No".; T 

65 Rï=INPUT*C 3)^ X=RSCC R$ >-64 

66 Y=VRLC MID$C R$,2,1> > 

67 Z$=RIGHT$CR$,1 ) 

68 IFCX+LG>10ANDZ$="H" MHEN65 

69 IFCY+LG > 10RHDZ*- " V " >THEN65 

70 U=0 

71 IFC Z$< >"V"RHDZ$< >"H" >THEN65 

72 IFC Z$="V">THEN81 

73 RCX,Y>=4 

74 U=U+1:IFCU=LG>THEN77 

75 X=X+1- IFC IJ=LG-1 >THENRC X, Y >=6 = G0T077 

76 RCX,Y>=5 : G0T074 

77 NEXTT 

78 NEXTR 

79 RETURH 

80 DRTR4,PORTE-RVIOH,3,CUIRASSE,2,SOUS-MRRIH 

81 RC X, Y>=1 

82 U=U+1^IFC U=LG)THEN77 

83 Y=Y+1 ^ IFC U=LG-1>THENRC X,Y>=3 : G0T077 

84 RC X, Y >=2 ; G0T082 

85 CL3-PRINT"J'RI GAGNE !!!" 

86 fl$=INPUT$C1> 

87 RUN 

88 CLS : PRINT"BRRVO,VOUS AVEZ REUSSI LE RARE EXPLOIT" : PRINT : PRINT PRIHT"DE BATTRE 
MON ETONNANT CERVEAU DE 43 Ko" 

89 fl$=IHPUT$C1 > 

90 RUN 


COMMENTAIRES : 

Ligne 3 : charge l'emplacement des 

bateaux de l'ordinateur, vous pourrez 

les changer à votre grès 

Ligne 6 : trace les grilles de jeu 

Ligne 8 : a-f-fichage des bateaux 

Ligne 9 à 13 : entrée de votre coup 

Ligne 14 à 28 s di-f-férentes possibilités 


de jeu 

Ligne 29 ç 38 : data du jeu de 
l'ordinateur, indiquant la position de 
ces bateaux 

Lig'ne 48 à 56 : redéfinition des 
caractères graphiques. 

Ligne 63 à 84 i entrée de la position de 
vos bateaux en début de partie. 



► 
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XRAYS 

Des lignes électrifiées en liberté? 

C'est inconcevable... 

Réduisez leur espace vital grâce à des murs isolés, 
que vous déplacerez avec les touches suivantes : 

«A» = haut, 

« Z » = bas, «. » = gauche et « / » = droite. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 


SCREENl,0/0 : L0CfiTE0j0/0 

TI=199 

SC=0 

CL S 

fl=0 : B=0 : C=199 ; D=199 
BOXCFCB>-CC,D>, 1 
fl=l : B=1 ; C=198 ; D=198 
L0CATE26,1,0 : PRINT"SCORE =" 

L0CflTE29» 3;0 : PRINTSC 
L0CRTE26,6,@ : PRINT"TEMPS :" 

LOCRTE28,8,0 : PRINTTI 
X=14 ; Y=10 ! Z=8 : W=12 

E=100=F=100 : G=110 : H=140 

E(1>=100:FC 1>=100 GC1>=110:HC1>=140 

F0RI=4T01STEP-1 : ECI>=EC1-1 ) : FC I>=FCI—1> : GCI>=GC1-1> 
E=E+X:F=F+Y:G=G+Z : H=H+U 


HCI>=HCI-1> : NEXTI 


IFC E< R >ÜRC E >C>THENX=-X ! E=E+X 
IFCFCB>0RCF>D >THENY=-Y:F=F+Y 
IFCG<R>ORCG>C>THENZ=-2:G=G+Z 
IFCHCB>ORCH>D>THENW=-W : H=H+W 
fl$=INKEY$ 

IFRS=""THEN25 
G0SUB31 

LINEC EC 4 FC4> >-C GC 4 >, HC 4 > >. -1 
LÜCRTE28.' 8; 0 : PRINTTI 
TI=TI-1 IFTI=0THEN46 
fl 1 =EC 4 > : R2=FC 4 > : R3=GC 4 > : R4=HC 4 > 
EC 0 >=E : FC 0 >=F ^ GC 0 >=G : HC 0 >=H 
GOTO15 


Ay-* 



J=RSCC R* > 

IFJ=31THEND=D-2•G0T037 
IFJ=65THENB=B+2 ! G0T037 
IFJ=76THENC=C-2 : G0T037 
IFJ=77THENfl=fi+2 : G0T037 
RETURN 

SC=SC+10 : BOXC R, B >-C C, D >, 1 

L0CRTE29,3,0 ^ PRINTSC:L0CRTE28,S,0 : PRINTT I 

S=S+1^IFS=70THEN51 
IFC C R>EC1>>ORCfl>GC1> > >THEN45 
IFC C B>FC1> >0RCB>HC1> > >THEN45 
IFC C CCEC 1>)0RCCCGC1>> >THEN45 
IFC C DCFC1>>ORCDCHC1> > >THEN45 
RETURN 

-tw TI=TI-30 PLRY"R1DO" RETURN 

46 CLS:PLRY"fl103S0S0S002S0" 

47 PRINT"VOUS AVEZ PERDU !!!" 

48 PPINT:PRINT:PRINT"VOULEZ VOUS REJOUER ??? 

49 IMPUTAS :IFRSCCfl* >=79THENRUN 

50 END 

51 8=0:SC=SC+T1*10 

52 PLRY"RIQ2REMIREREDQ" 

53 BOXC fl.. B >-C C, D > > 2 

54 fl=fl+1 :B=B+1 'C=C-1 :D=D-1 

55 IFC RCC >THEN53 

56 T1=99 

57 GQTQ4 


COMMENTAIRES : 

Ligne 1 à 14 s initialisation des 
variables et tracé du jeu à l'écran 
Ligne 18 à 21 : test des déplacements 
Ligne 25 à 29 : a-f-fichage des nouvelles 


coordonnées des lignes en déplacement 

Ligne 31 à 35 : test du clavier 
Ligne 37 : rétraississement de l'espace 
disponible 
Ligne 40 à 44 
Ligne 4é à 50 


test des col 1isions 
-tin du jeu 
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- THOMSON MO 5 - 

GUERRE NUCLEAIRE 

La Terre sera-t-elle radio-active ou non? 

. Son sort est entre vos mains. 

Suivez fidèlement les instructions de l'ordinateur 
et tout se passera bien... peut-être! 



1 SCREEN1,7, 7 

2 CLS'PRIHT"SPRITES EST FIER DE VOUS PRESENTER «" 

3 PR INT : PRINT : PRINT : PRINT ; PRINT : PRINT : PRINT : flTTRBl, 1 : PRINT''LR GUERRE NUCLEAIRE" 

4 L0CATE3,22,0 : PRINT"MICRO-JEUX 1985"=ATTRB0,0=G0SUB115 

5 CLSiSCREEN6, 0, 0 : RESTORE = J0=1=NC=1 

6 G0SUB83 

7 CLS 

8 GOSUB106 : PRINT 

9 REM Lfl LIGNE SUIVANTE INITIALISE LES CASES 

10 PRINT" "; ; FORI=1T06 : FORJ®1TQ6 : ACI,J)=0 ; NEXTJ : NEXTI 

11 F0RJ=1T06 ! PRINTCHRSC 64+J);" ";:NEXTJ 

12 PRINT = PRINT * FORI = 1T06 = PRINTI ; ■■ FORJ= 1T06 : PRINTAC I, J ); = NEXT J» PRINT : PRINT = NEXTI = 
RESTORE125 

13 REM TRACE LE CADRE 

14 READW,X,Y,Z=IFZ<0THEN16 

15 LINEC W, X )-CY, Z ), 4 : GOTO14 

16 LOCATE0,17,0 

17 IFN=1THEN76 

18 PRINT"JOUEUR 1 =";CP 
13 PRINT"JOUEUR 2 = ";CN 

20 PRINT"NOMBRE DE COUPS";INT<NC) 

21 PRINT"VOTRE COUP JOUEUR "; JO ! IFCCP=0ORCN=0)ANDNC>=2THEN63 

22 REM ATTEND DEUX CARACTERES,LES ANALYSE ET LES INTERPRETE 

23 C$=IHPUT$C 2 ) ■' NC=NC+. 5 

24 IFASC<CS X 650RASCCCS ) >70THEN23 

25 IFASCC RIGHTSCCS,1)X480RASC<RIGHTSCC*,1))>54THEN23 

26 REM TRADUIT LES DEUX CARACTERES EN COORDONNEES 

27 F=ASC<C$>-64 : E=ASCCRIGHTSCCS,1 ))-48 

28 IFAC E,F X 0ANDJO=1THENJ0=2 = GOTO16 

29 IFAC E,F ) >0ANDJO=2THENJO=1 : GOTO16 

30 IFC CP=0ORCN=0>ANDNC>=3THEN69 

31 G0T037 

32 ACE,F)=A+1«IFACE,F)>=CCE,F)THEN47 

33 BEEP : IFJ0=1THENJ0=2ELSEJ0=1 

34 G0SUB112 

35 IFA=0THENCP=CP+1 

36 GOTO16 

37 A=ACE,F) 

38 IFJO=2THEN40 

39 G0T032 

40 IFJ0=1THEN33 

41 AC E, F )=A-1 • IFABSC AC E, F ) »=C< E, F )THEN61 

42 BEEP = IFJ0=1THENJ0=2ELSEJO=1 
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G05UBIT2 

IFfl=0THENCN=CN+1 
GOTO16 

-,, AC! E , F*ï 0?R< E-1 )=RBS< RC E-1, F ) )+1 * RC E+1, F >=ABSC AC E+1, F > >+1 = RC E, F-1 >=RBSC AC E , F 
-1> >+1= AC E,F+1>=RBSC RC E,F+1> >+1 = PLRY"R1Q2D0" 

48 GOSUB112 

REM TEST SI REACTION EN CHAINE OU NON 
E=1 : F=1 

IFRC E/F)>=C< E >F )THEN47 
F=F+1 : IFFC7THEN51 
F=1-E=E+1-IFE<7THEN51 
REM COMPTE LES CASES POSITIVES 
CP=0:CN=0=F0RE=1T06=F0RF=1T06 
IFRC E * F)>0THENCP=CP+1 
IFRC E* F X0THENCN=CN+1 
NEXTF^ NEXTE=IFJ0=1THENJ0=2ELSEJ0=1 
.. GOTO16 

61 RC E, fSSÜ E-1 ^F)=-C RBSC RC E-1, F ) H1 > = RC E+1, F J=-C RBSC RC E+1, F > )+1) * RC E, F-1 >*-C fl 
BSC RC E, F-1 > >+ 1 > : RC E, F+1 >=-< RBSC RCE^F+1 )H1 PLRY " fl 102RE " 

62 GOSUB112 

REM TEST SI REACTION EN CHRINE OU NON 
E=1 : F=1 


43 

44 

45 

46 

47 


49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 


63 

64 

65 

66 

67 

68 

69 

70 


IFRBSC ACE.. F) »=CCE, F 5THEN61 
F=F+1 : IFFC7THEN65 
F=1 : E=E+1 : IFE<7THEH65 
G0T055 

CLS:GOSUB112 :IFCN=0THEN71 
PLRY"DODODOREMIDO" : PRINT"LE JOUEUR 
PLRY "DODODOREM I DO” : PRINT " LE JOUEUR 


2 fl GAGNE EN "i NC;" COUPS ."■G0T072 
1 fl GAGNE EH "jNCi" COUPS 


72 PRINT : PRINT : F'RINT : PRIHT"VOULEZ VOUS REJOUER ??" 

73 GOSUB115 : IFR*="G"THEN5 

74 IFR®< >"N"THEN73 

75 END 

76 IFJ0=1THEH18 

77 J0=2 

78 E=INTCRNDC1>*6>+1 

79 F=INTCRNDC1)*6)+1 

80 REM CHOISIT ALEATOIREMENT UNE CASE JOUABLE 

81 IFRC E > F >/0THEH78 
S2 G0T028 

83 PRINT"VOULEZ VOUS LA REGLE DU JEU ?" 

84 GQSUB115 

85 IFfl*="N"THEH98 

86 IFfl$< >"0"THEN84 

87 CLS 

S8 PRINT"LE BUT DE CE JEU EST TRES SIMPLE =" 

89 PRINT : PRINT"LA TERRE EST REPRESENTE PRR UN CARRE DE" 

90 PRINT«PRINT'SIX SUR SIX.CHAQUE CASE PEUT AVOIR DEUX" 

91 PRINT=PRINT"POTENTIELS RADIOACTIFS <" 

92 PRINT:PRINT"L'UN FOSITIF" 

93 PRINT : PRINT"L'AUTRE NEGATIF" 

i SEULE* UNE" .PRINT‘ PR INT "EXPLOSION PEU 

gSSSÜS'îS ^T»g 8 P-^»iô^TIV,TE CR 

ITIQUE ..." 

97 GOSUBi15 

98 CLS 

?l 0 P ^?^ T pl I H? U F gl?=T?5I : fèlbï 1 ?g| T rIhdIc i :-J> . PRINTCC ,. J„ • NEKTJ : PRINT. PRINT ; HE 

101 PRINT"POUR JOUER UNE CERTAINE CASE>IL SUFFIT"=PRINT=PRINT"DE TAPER SES COORD 
OHNEES =EXEMPLE CA3>" 

102 PRINT : PRINT - PRINT"APPUYEZ SUR C POUR COMMENCER" 

103 GOSUBI15 

104 IFfl*.<>"C"THEN103ELSERETURN 

105 REM CHOIX UH OU DEUX JOUEURS-VARIABLE N 

106 PRINT" 1 OU 2 JOU EURS ???"--- 
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107 G0SUB115 

108 N*VAL<A$> 

109 IFN=0DRN >2THEN107 

110 CLS : RETURN 

111 REM ROUTINE QUI AFFICHE TOUT LE TABLEAU 

T 1 2 HE7TI flTE0 ' 3 4 5 6 ' 0 : F0R1 = 1T06 : L0CflTE3 ' CSRLIN •• FORJ= 1T06 * PRINTFK I , J ); : HEXTJ = FRINT « PRIH 

113 LOCATE0 , 17; 0 : RETURH ' 

114 REN ROUTINE QUI ATTEND UN CARACTERE AU CLAVIER ET LE STOCKE DANS Aï 

115 A*=INPUT*<1> 

116 RETURN 

i\2 U er^non^TRANSFORMER LE TABLEAU DES SATURATIONS MAIS IL FAUT GARDER U 
N CrlKKt L-'E SI K PRR oIa 
lis DATA 2..3,3,3; 3,2 

119 DATA 3, 4,4, 4, 4,3 

120 DATA 3,4,5,5,4,3 

121 DATA 3/ 4,5,5,4,3 

122 DATA 3, 4,4, 4, 4, 3 

123 DATA 2i 3,3,3,3,2 

124 REM LES DATAS SUIVANTES SONT LES COORDONNEES DU CADRE 

125 DATA0,0,0,120,0,120,163,120,23,0,23,120,168,120,168,0,168,0,0,0,0,20.168,20 

126 DATA0,0,0,-1 


COMMENTAIRES : 

Ligne 1 à 4 : affichage de la 
présentâtion 

Ligne 9 à 12 : initialisation des cases 
du jeu 

Ligne 14 à 19 : tracé du cadre et des 
textes à l'écran 

Ligne 18 à 21 : attend la réponse des 
deux joueurs 

Ligne 23 à 25 : analyse et interprète 

les réponses des joueurs 

Ligne 27 à 45 : traduit les caractères 

alphanumériques en coordonnées pour 

l'ordinateur 

Ligne 47 à 48 : explosion positive 
Ligne 50 à 53 : teste s'il s'agit d'une 
réaction en chaine 
Ligne 55 à 59 : compte les cases 


positives 

Ligne 61 à 62 : explosion négative 
Ligne 64 à 68 : teste si la réaction est 
en chaine 

Ligne 69 à 75 i musique et affichage des 
résultats 

Ligne 81 à 82 : choisit aléatoirement 
une case jouable 

Ligne 88 à 104 : explication du jeu 
Ligne 106 à 110 : choisit un ou deux 
joueurs 

Ligne 112 à 113 ! affiche tout le 
tableau 


Ligne 115 à 116 : attend que le joueur 
presse une touche et la stocke dans la 
variable A$ 

Ligne 118 à 126 : tableau des 
saturations 


- THOMSON MO 5 - 

ELECTROCHOC 


Parviendrez-vous à suivre 
le rythme infernal d'un cable haute tension ? 

Que votre vaisseau le touche et vous pouvez dire 

adieu à la vie. 

Q = haut, W = bas, «,» = gauche et «.» = droite. 

1 CLEAR.,6 

2 Gt ="." 

3 LOCATE0,0,0 

4 DEFGR*(0)=32,32,32,63,0,0,0,0 

5 DEFGR*(1>=32,32,32,224,0,0,0,0 

6 DEFGRÏ(2)=0,0,0,0 ,63,32,32,32 
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7 DEFGR*(3)=0.0•0,0.224.32.32.32 


G DEFGRï < 4 > =32.32,32.32,32.. 32.32.32 

9 DEFGR#(5)=0.0.0.0.255.0.0.0 

10 CLS:SCREEN12.15,4 


1 1 LOCATE10.2: FRI NT :i ELECTRO-CHOC" : LOCATF0. 3: P» INT" DIRIGER VOTRE .VAISSEAU 
DU F IL PF: I NT ï PR INT: PR INT "CONDUCTEUR SANS LE TOUCHER. SINON 

12 PRINT:PRINT:FRINT"C’EST L'ELECTRO-CHOC MM" 

13 PRÎNT: PR INT : PR INT : PR INT "COMMANDES : Q " : P c I !• T ’ PP. INT" 

NT:PAINT" W" 


!.. E L QMS 

rfF 


" t PF.. 


14 LGCATE0.23: F'R INT" VITESSE 1 1R 5 > : (FOU-ESCARGOT;" 


i =, lÿ=XNKEY#t R=RND: Ir IÆ=" " i KENi“• 

; 4 A=MAL(I$): TFACtQRA>5THEN15 
i 7 SCREEN1 .2,3îCI.S: F’PïN T 11 ELEC TRO— CHOC" 


18 


COLOR4 




19 *=18:Y=12 

20 FORR=1TOA*80: NE YTR 

21 GOSUB77 

22 IFC<3THENB*=GR*C5> rPRINTB*; <=>'+1: C=C+ 1 ; SCTC23 

23 F0F:R=1TDA*80:NEXTR 

24 C—3 

2.3 SOT052 

26 GOSUB77 

27 E=0 

?8 A f NK E VT : E-E-*-1 : I c E=f ic' ri - ! EN!42 

29 IFAT= r "TREN2S 

30 IF A f < > " Q ■' THEN33 
-ï 1 I M7î' r MFN43 



32 G0TC78 

' 33 IFA$<>"W"THEN36 

34 î FC< >1THEN43 

35 GOTO?© 

3à IFA#< >","THEN39 
37 IFC02THEN4 3 
3S S0T07S 

39 IFAfO". "THEN2S 

40 IFC< >3TMEN43 

41 GOTO7g 

42 A*=B*:GOTO30 

43 ~0R T = 1 TO10: p OF,'R=0TÜ i5: PLAYL1 Dp" :SCREEN, ,R: MEXT: NEXT 

44 LOCATEG!.22î PR INT "*■*#*■**#*#*******#*■*" s PRÏNT"ELECTRO-CHOC PRïNT"** 

k *■**# *##*■*■*■##*#■**“ • PRINTGs '* ? 

45 XFG<25THENPRINT"C'EST TRES FAIBLE ! ! !“: PLAY"A0L90DO":SO7O50 

46 I FS< 50THENPFI NT " C ' EST TRES MOYEN ! î î î " î PLAY" Al DORE" : 3GTO50 

47 IFG<75TMENPF: INT"C'EST ASSEZ BIEN ! ! î : PLAY'" Al DORERI “ : GOTO50 

48 PF‘INT"C ' EST PRESQUE PARFAIT ï î ! PLAVAIBOREMIFA" :GOTO50 

49 PR INT" 130 7. , BRAVO ! ! ï ! INCROYABLE ! ! ! ! " ïPLAVAIDGREMÏFASOLASI " 

50 FORR=1TO2000:NEXT:PRINT"VOULEZ VOUS REJOUER ???“ 

51 Aî=INKEYT:IFA#=“"THEN51ELSEIFA#= "O"THENRUMELSEï FA#=“N"THENENDELSESOT051 

52 B*=A*:G=G+1:IFG=100THENLOCATE0,24:G0T049 

53 D=INT(RND*4> 

54 IFD>0THEN60 

|| ,]' * ' 9 \ j* "‘'O *, 1 • » ». • ’^ 

55 IFY=1THEN53 

56 IF C=0THENLOCATEX,Y—1 :PRINTGR#(4): :C=D: Y=Y—1 : G0T027 

57 IFC=2THENL0CATEX— 1 , Y: PRINTGR# (0) : : C=D: X=X-1 .• GCTQ27 

58 IFC=3THENL0CATEX+1,Y:FRINTGR#< î >;:C=D:X=X+1:G0T027 

59 GOTO 53 

60. IFD> î THEN66 
61 IFY—22THEN53 


62 IFC=iTHENLOCATEX,Y+l:PRINTGR#<4>: :C=D:Y=Y+1:SDT027 

63 IFO2THENL0CATEX-1, Y: PRINTGR# <2> ; : C=D: X=X-1 : G0T027 







64 ÏFO3THENL0CATEX+1,YsPRINTSR*(3): :C=DsX=X+1:30T027 


65 G0T053 


66 IFD>2THEN72 


67 t p y = J JHEN53 


68 IFC--3THEN53 


69 IFC=2THENL0CATEX-Î,Y:PRINTGR*(5);ï C=D:X=<-1:G0T027 


70 ÏFC= 0 THENLOCATEX.Y-l:PPINTGR*(3)s :C=D:Y=Y—1 :G0T027 


71 LOCATEX ,Y+lïPRINTGR*a> : : C=D: Y=Y+1 : G0TQ27 


72 IFX=39THEN57 


73 tFC=2THEN53 


74 IFC=3THENL0CATEX+1,Y:PRINTER#(5); :C=D:X=X^1: 801027 


75 TFC-0THENLOCATEX,Y-l:PRINTGR#(2): :C=Div=Y-l:80T027 

I 


76 LOCATEX., Y+l: PR INTER# (0) : : C=D: Y=Y+1 : G0TQ27 


77 PLAY "Al DO" : LOCATEX . Y: PR INT"*" ; : PETÜb'N 


73 G0SUB77:G0T052 


COMMENTAIRES : J , . . 

Ligne 1 : affichage de la haute 

résolution 

Ligne 4 à ? ! définition des caractères 
graphiques 

Ligne 10 à 13 : présentation du jeu 
Ligne 14 à lé : choix du niveau du jeu 


Ligne 17 à 27 : routine de jeu 
Ligne 28 à 41 : test clavier 
Ligne 43 à 49 : choix d'une réponse en 
fonction du score 

Ligne 50 à 51 : test de nouvelle partii 
Ligne 53 à 78 : routine principale du 
jeu 


THOMSON MO 5 


STAR WARS 


La guerre à repris entre les forces du mal et votre planete. 

Repartez une fois encore 

dans une lutte dont vous savez qu'elle est sans issue... 

Q = haut, W = bas et la barre d'espace 
sert à tirer. 


1 CLS 

2 SCREEN8,0,0 


9 Y=INT(RND(1)*199) 


3 CLEAR,,2 


10 C=INT(RND<1)*15)+1 


11 PSET(X,Y),C 


4 LOCATE0,0,0 

5 DEFGR#(0)=0,64,236,254,255,254,23 1- NEXT 


^ 1 Y=0 

6 DEFGR*<1>=0,2,55,127,255,127,55,6 1 * Y 


14 Z=23 


15 C0LOR4 
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7 FORI=0TO150 

8 X = INT(RND(1> *319) 









39 

LOCATE0,Y 


16 

LOCATE0,Y 


40 

PRINT" 


17 

PRINTGR$ ( 0 ); 


41 

Y=Y+1 

* 

18 

COLOR1 


42 

G0T034 


19 

L0CATE38,Z 


43 

A=RND(1)*9 


20 

PRINTGR*<1>; 


44 

IF A<1 OR A>5 THEN48 


21 

A*=INKEY* 


45 

IFAC2THEN15 


22 

IFA$=""THEN43 


46 

IFA<3THEN58 


23 

IFA$="Q"THEN30 


47 

IFA< 4THEN62 ELSE50 


24 

IFA$="W"THEN38 


48 

IF Z=Y THEN58 


25 

IFA«>" "THEN43 


49 

IF Z>Y THEN62 


26 

LINE < 8,Y*8+4)-(303,Y*8+4) 

,8 

50 

LOCATE38,Z 


27 

PLAY"A1L503D0S0SIDO" 


51 

IFZ=38THEN15 


28 

LINE(8,Y*8+4)-(303,Y*8+4) 

,0 

52 

PRINT" " ; 


29 

IF Z=Y THEN 67 ELSE43 


53 

Z = Z+1 


30 

IFY=0THEN43 


54 

COLOR1 


31 

LOCATE0,Y 


55 

L0CATE38,Z 


32 

PRINT" "; 


56 

PRINTGR$(1); 


33 

Y=Y— 1 


57 

G0T015 


34 

LOCATE0.Y 


58 

LINE(303,Z*8+4)-(8,Z*8+4) 

,7 

35 

COLDR4 


59 

PL A Y "A 1 L505D0S0SIDO" 


36 

PRINTGR#(0); 


60 

LINE(303,Z*8+4)—(8,Z*8+4) 

,0 

37 

G0T043 


61 

IF Z=Y THEN 77 ELSE15 


38 

IFY=23THEN43 
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62 LÜCATE3S,Z 

63 IFZ=BTHEN15 

64 F 3c ÎNT“ " ; 

65 Z=Z-Î 

66 G0T054 

67 CLS 

68 PRINT“BRAVO,VOUS M'AVEZ EU M!" 

69 LOCATE0,20 

70 PRINT"VOULEZ VOUS REJOUER ???" 

71 AT = INKEYT 


72 A=RND(1> 

73 IFAT=""THEN71 

74 IFAT =,, O"THEN80 

75 IFAT="N“THENENB 

76 G0T071 

77 CLS 

78 PRINT"JE VOUS EST PULVERISE 

79 G0T069 
30 CLS 

81 GQT04 


COMMENTAIRES : 

Ligne 1 à 4 : initialisation des 
variables 

Ligne 5 à 6 : redéfinition des 
caractères 

Ligne 7 à 12 : affichage des étoiles 
Ligne 13 à 20 : affichage des deux 
vaisseaux 

Ligne 21 à 25 : test du clavier 


Ligne 26 : tir du joueur 

Ligne 27 s routine de sons 

Ligne 28 : effacement du laser du joueui 

Ligne 29 : touché, fin de la partin 

Ligne 30 à 42 : boucle principale des 

dépiacements 

Ligne 43 à 57 : réflexion de 
l'ordinateur et les déplacements 
Ligne 58 à 67 : laser de l'ordinateur 
Ligne 68 à 81 : fin de la partie 


- THOMSON MO 5 - 

LOVE SOURIS 


Vous aimez les souris? Tant mieux. 

Un pauvre petit animal s'est égaré dans un labyrinthe. 

Aidez-le à se sortir de ce piège. 

Q = gauche, W = droite, «, » = haut et «. » = bas. 

1 CLS:SCREENE.4.5 

2 LOCATE0.0,0 

3 FORI=0TO23:READAT 

4 FORJ=lTOLEN<AT> :B$=MIDT(AT,J,1>: IFBT= "A"THEN6ELSETFBT="C"THENF'RINT.: GOl O ■’ 

5 PRINTCHRT <125): :G0T07 

6 PRINTCHRT <127); :A=A+1 

7 NEXT: PRINT:NEXT 

9 iFA< >46P)THENCLS: PR INT" ERREUR DANS LES DATA !!!!!": STOP 

9 LINE 637,0* — (37.24)CHRT(127) 

10 LINE — (0.24 > CHRT(127) 
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11 X=20:Y=23 

12 LÜCATEX,Y:PRINT"*" 

13 BEEP 

14 B*=INKEY*:R=R+1 : IFB*=""THEN15ELSEA*=B* 

15 IFA*="Q"THENIFSCREEN(X,Y—1)=32THENL0CATEX,Y:PRINT" ":Y=Y-1:G0T012ELSE12 

16 IFA*="W"THENIFSCREEN(X,Y+1)=32THENL0CATEX,Y: PRINT“ ":Y=Y+1 : GOTO12ELSE12 

17 IFA*—","THENIFSCREEN<X-1,Y)=32THENL0CATEX,Y:PRINT" X=X-1:G0T012ELSE12 

18 IFA*="."THENIFSCREEN(X+l,Y)=32THENL0CATEX,Y:PRINT" X=X+1: GOTO12ELSEIFSCREEN 

(X+l,Y)=125THEN28ELSE12 

19 GOTD14 

20 DATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA,AACCCCAAACCACCAACAACCCCCCCCAAAAAAAA 
AC,AAAAAACCCAAACCACACACCAACAAAACCCCCA 

21 DATAAAACCACACCAACCAACAACCACCCACCCAACAACAC,ACCCAACCACCACCAAAAACCACAAACAAACCAAC 
AC,ACACCACAAACACCCCCCCCCACCCACCCACACCCA 

22 DATAACAACACCACCACACACACCCAAACCCAAACACAAAC,ACCACAACACAACACACACCCCCAAAAAACCACCC 
AC,AACACACCACCACACACACACCCCACCCCCAAAACA 

23 DATAACCACACAAACACACAAACCAAAAACAAAAACCCCA,ACAACACCCACCCCACCCCCCCCACCACCCACAAAA 
»ACCACAAACAAAAAAAAAAAAAAACAACACACCCCACCC 

24 DATAAACACCCACCCACCCACCCACCCACACCACAAACAA,ACCAAACAAACCCACCCACCCACACACAACCAACCA 
»ACAACACCCAAAAAAAAAAAAACACACCAACAAACA.ACCCCAAACCCCCCCCCCCCCACACAACAACACCCA 

25 DATAAAAACCAAAAAAAAAAAAAACCCACCACCACACAAA,ACCCACACCCACCCACCCCAAAAAACCCAACACCCA 






















.ACACCCACACACACACAC AACCCAAAAAAACCAACA 

26 DA TAACCAAAACACCCACACACCACACCCOC.ee AACCCCA.AACCACCCAAAAACCCACCACAAAACAACCAAACAA 
.AAACCCAAACCCAAAAACAACCCCACCAACCAAAA 

27 DATAAAAAAAAACACCCACCCCAAAAACAACCAACCAACCA,ACACACACAACACCCACCBACCCCCAACAAACCCC 

AA 

28 PLAY"A103SISISISCSODODODO"î GLS:SCREEN1,2,3sPRINT"BRAVO,LA SOUPIS EST APRES " : 
INT(R/10)î" UNITES TE TEMPS" 

29 LOCATE0,10:IFF<600THENPRINT"VOUS ETES TRES FORT f ! !":GOT034 

30 IFR<700THENPRINT“C 'EST PAS MAL ,SI , £ I ! ! ! : 00T034 

31 IFR<900THENPRINT"C'EST MOYEN !!"':G0T034 

32 IFR<1200TWENPPINT"C EST FAIBLE '!'":G0T034 

33 PRINT"C'EST NUL ! ! !" 

34 LOCATE0.20:PRINT"VOULEZ VOUS REJOUER ??? À$=INKEYÆ : IF A*= " " THEN34ELSEI FA$= " 0 11 

THENRUNELSEIFA* <>"N"THEN34ELSEEND 


COMMENTAIRES : 

Ligne 1 à 2 : initialisation des 
variables du jeu 

Ligne 3 à 12 : dessin du labyrinthe 
Ligne 13 à 1? : test du clavier et des 


dépiacements 

Ligne 20 à 27 : tracé du labyrinthe « 
datas 

Ligne 28 : -fin du jeu 

Ligne 2? à 33 : commentaire du score 

Ligne 34 : voulez-vous rejouez ? 


COMMODORE 64 


MASTER MIND 

L'ordinateur choisit cinq couleurs parmi huit, 
qu'il garde secrètes et que vous devez retrouver. 
Vous avez pour cela dix essais. 

À chaque réponse, le c. 64 vous indiquera les couleurs 
bien choisies et bien placées, 
puis les couleurs bien choisies mais mal placées. 


1 rem 

2 REM X PROGRAMME MftSTERMIND X BERNARD LflTTEUX X 

REM COMMODORE 64 X FEVRIER 84 

rem 

PGKE53281 > 0 : POKE53280,12 
PR INT 'V 
pr int "rawiM" 

PR INT T ABC 12)1 " 

PRIAT TABC12>;"3* #" 


3 

4 
6 

7 

8 
10 
11 
12 

13 

14 

15 

16 
17 


PRïNT TRBCl2 );"3# MASTERMIND *" 
PRINT TAB<12>;"-a» #" 

PRINT TABC12);" S W*M*Mmm***" 
PRINT ">M(tt«?IsKIS»>*rv'OULEZ VOUS LE 
GETR$:IFR$=" "THENG0T016 
IFR$="0"THENGOSUB100© 


MODE D"EMPLOI ? 0/N" 
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18 PRINT "IT 

19 REM-CHOIX UES CARACTERISTIQUES DU JEU 

20 PRINT “NOMBRE DE COULEURS POSSIBLES ? <MAXIMUM=8>“ 

30 INPUT NC 

40 PMflX=NC : IFNC>6THENPMAX=6 

50 PRINT "NBRE DE COULEURS DANS LA COMBINAISON ? (MAXIMUM*";PMAX; 

60 INPUT NP 

65 REM-PALETTE DES COULEURS POSSIBLES 

70 PR INT'TI?] 43 fi 34 fi fi 31 fi Ai S 35 fi 31 fi 33 B" 

80 PR INT " 43 1 B 34 2 B 2k. 3 B 3Ê1 4 B Sfii 5 B 35 6 B 31 7 B 33 8 B" 

90 PRINT "431 B 34 B 34. B Al B Ai B 33 B 31 B 33 B" 

100 IF NC=8 THEN 00 TO 142 
110 1 =3-NC • PR I NT " a» " J TAB <4*NC > ; 

120 FOR J=1 TO I:PRINT"3 fi"; : NEXT 

125-PR INT : PRINT TAB<4*NC>; 

130 FOR J=1 TO i:PRINT"3 B"J : NEXT 
135 PRINT :PRINT TAB<4*NC>; 

140 FOR J=1 TO 1=PRINT"3 fi"; : NEXT 

141 PRINT 

142 PRINT 

145 PRINT "Si CHOIX DES COULEURS - "; 

147 PRINT NP;" PARMI ";NC 

149 REM-L'ORDINATEUR FIXE ALEATOIREMENT SA COMBINAISON 

150 FOR 1=1 TO NP 

155 P U > = INT<HC*RHD< TI > +1 > 

175 HEXT I 
180 IN=0 : IT=0 

189 REM-ENTREE DE VOTRE COMBINAISON 

190 PRINT TABCIT);"«ENTREZ VOTRE CHOIXTT 

195 FORI = 1TONP: CP <I) =Q ■NEXT 

196 PRINT:PRINT TABCIT); 

197 GETPf : IFPf=""THENGOTO197 

198 I=VAL<PÎ) : IFI=0THENPRINT"XI«" : GOTO 190 

199 PRINT:PRINT TAB<IT>; 

200 GET Cf <I> : IF CfŒ' = "" THEN GOTO200 

202 CP a > =VAL < Cf < I) ) : PR I NT " Tl" 

203 I FCP <1 > =0THENPR I NT " TM" : GOTO 190 

204 IF CP<I>=1 THEN PRINT TAB<IT+2*d-l>>;"34 1B";:G0 TO 212 

205 IF CP a?=2 THEN PRINT TAB< IT+2*< 1-1 > ) ; "34 2fi";:G0 TO 212 

206 IF CP CI) =3 THEN PRINT TABdT+2#<I-l>>; "Sk 3B";:G0 Tu 212 

207 IF CP(I>=4 THEN PRINT TABCIT+2*a-l > > ; " 31 4B";:G0 TO 212 

208 IF CP<I)=5 THEN PRINT TAB<IT+2#<I-1)>;"Ai 5B";:G0 TO 212 

209 IF CP< I ) =6 THEN PRINT TAB<IT+2#(I-1>);"33 6B";:G0 TO 212 

210 IF CP(I> =7 THEN PRINT TAB<IT+2*(I-1>>; "31 7B"; =G0 TO 212 

211 IF CP<I)=8 THEN PRINT TAB<IT+2#KI-1>);"33 3B";=G0 TO 212 

212 TE=1 : F0RI=1T0NP : TE=TE#CP<I) : NEXT 

213 IF TE=0THEN GOTO197 
215 IN=IN+1 : 0=0 : D=0 

219 REM-EVALUATION DE LA COMBINAISON 

220 FOR 1 = 1 TO NP:DP<I>=CPa>:Ra>=P<D:IF CP<I>=P<I> THEN 0=0+1 : DP CI >=0 : R( I )=9 
225 NEXT 

230 FOR 1=1 TO NP 
^248 FOR J=1 TO NP 


i 


























250 IF I=J THEN GO TÜ 300 

260 IF DPCI)OR(J) THEN GO TO 300 

270 D=D+1 : DPCI)=0 : RCJ)=9 : GO TO 310 

300 NEXT J 

310 NEXT I 

459 REM - 

460 PR INT TABCIT+2#NP);" SB";0;"ll 3" J D; "II" J 

462 A=PÛS<0) : B=IT+18 

463 IF A>38 THEN GO TO 466 

464 FOR RI=fl TO B : PRINT " "; : NEXT 
466 PRINT 

470 PRINT 

480 IF IH=3 THEN PR INT "SftWMRM" : IT=20 : REM - 

490 IF 0=NP THEN GOSUB 800 : REM - 

500 IF IN=16 THEN GOSUB 900 : END : REM- 

510 GO TO 190 


-RFFICHRGE DE LR REPONSE 


■CHANGEMENT 


DE DEMI-ECRAN 

-GAGNE ! 

-PERDU ! 


800 REM - 

881 IF IN=1 THENPRINT " 2W3RGNE DU PREMIER COUP !■" 

«02 IF IN>1 THENPRINT TRB<IT>;" SWGRGNE EN IN; "Il COUPS 
810 FOR 2=1 TO 500 : NEXT 

820 IF IN=1 THENPRINT"H • 

821 IF IN>1 THENPRINT TABCIT). 71 ■ PR INT H , 

830 FOR 2=1 TO 200 : NEXT 

840 GO TO 800 
850 RETURN 

900 REM- 

902 F0RLL=1T04 

i ■" 


-S/P VICTOIRE 


-S/P DEFAITE 


905 PR INT TABCIT);" «PERDU 
910 FOR 2=1 TO 200:NEXT 
920 PRIAT TRB<IT).: ,, n 
930 FOR 2=1 TO 200 : NEXT 
940 NEXT 

942 PRINT " SOLUTION : 

950 F0RI=1T0NP 
954 IF P(I)=1 THEN PRINT 


" : PR INT "T; 


960 

961 


34 1! 

34 2S 
St 39 

sm 4 " 
«i 59 

æ 69 
3ïï 79 
33 89 


: GO TO 990 
: GO TO 990 
: GO TO 990 
: GO TO 990 
: GO TO 990 
: GO TO 990 
: GO TO 990 


-S/P MODE D'EMPLOI 


955 IF PŒ'=2 THEN PR INT 

956 IF PCI>=3 THEN PRINT 

957 IF P<I>=4 THEN PRINT 

958 IF PCI)=5 THEN PRINT 

959 IF PCI)=6 THEN PRINT 
IF PCI)=7 THEN PRINT 
IF PCI)=8 THEN PRINT "I 

990 NEXT 
995 PRINT "II" 

999 RETURN 

1005 PRINT "USIL S'AGIT DE TROUVER PARMI NC COULEURS. " 

1010 PRINT "REPEREES PAR UH NUMERO COMPRIS ENTRE" 

1020 PRINT " Blk ET BNCk. " 

1030 PRINT "UNE COMBINAISON DE NP D'ENTRE ELLES" 

1040 PRINT " CLES REPETITIONS SONT POSSIBLES)" 

1050 PRINT:PRINT "POUR PROPOSER UNE COMBINAISON.TAPE2" 

1060 PRINT "POUR CHACUNE DES POSITIONS POSSIBLES :" 

1070 PRINT " *-LE NUMERO DE" LA POSITION'Cl A NP)" 

1080 PRINT " -PUIS LE NUMERO DE LA COULEUR PROPOSEE" 

1085 PRINT " A CETTE POSITION Cl A NO" 

1090 PRINT:PRINT "y_A COMBINAISON EST PRISE EN COMPTE DES 
1100 PRINT "QUE LES NP POSITIONS ONT ETE AFFECTEES." 

1110 PRINT " SANS APPUVER SUR BRETURNk" 

1120 PRIAT:PRINT "LE RESULTAT EST FOURNI PAR 2 NOMBRES" 

1130 PRINT " O-NBRE D'ELEMENTS BONS DANS L'ORDRE" 

1140 PRINT " B-NBRE D'ELEMENTS BONS EN DESORDRE" 

1150 PRIAT "MünAPPUVER SUR ICn POUR CONTINUER" 

1160 GETR$ : IFR$=""THENGOTQl160 

1170 PRINT "HBkTANT QU'UNE COMBINAISON N'EST PAS PRISE" 

1190 PRIAT "|hL'ANNULER?EN TAPANT POUR UNE POSITION OU UNE COULEUR" 
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""1200 PRINT "-CHANGER Lfl COULEUR PROPOSEE H UNE" 

1210 PRINT " POSITION,EN TRPRNTULE NUMERO DE CETTE" 

1215 PRINT " POSITION,PUIS LE NUMERO DE Lfl NOUVELLE COULEUR" 
1220 PRINT "MMBkVOUS AVEZ LE DROIT R 16 TENTATIVES" 

1230 PRINT "KUUHMMBONNE CHANCE !" 

1240 PRINT "WWMBCnPPUVER SUR BEI POUR COMMENCER" 

1250 GETRf : IFR$=""THEN GO TO 1250 
1260 RETURN! 


COMMENTAIRES : 

Ligne <4 à 14 : présentation du jeu 
Ligne 15 à 17 : choix pour savoir si 
vous voulez le mode d'emploi 
Ligne 20 à 60 : choix du nombre de 
joueurs et du nombre de combinaisons 
Ligne 70 à 142 : affichage du jeu 
Ligne 145 à 147 : choix d'une couleur 
Ligne 150 à 180 : choix des combinaisons 
par 1'ordinateur 

Ligne 180 à 215 : entrée de votre 


combinaison 

Ligne 220 à 310 : évaluation de la 

combinaison proposée 

Ligne 460 à 470 : a-f-fichage de la 

réponse 

Ligne 480 : changement du demi-écran 
Ligne 490 à 500 : test de fin du Jeu 
Ligne 800 à 850 : affichage de la 
victoire 

Ligne 900 à 999 : affichage de la 

solution en cas de perte 

Ligne 1000 à 1260 : explication du jeu 


COMMODORE 64 


TILT-MAN 

Trois tailles de labyrinthe pour un tilt-man 
qui doit s'échapper le plus vite possible. 

J = gauche, K = droite, I = haut, M = bas. 
Prêt? Courez... 



140 DIMW <19,11 ), V < 1 SU 11 ), D ( 4 ) 

150 POKE53280,12=X=RND<-TI) 

160 PRIHT "nWWW LABYRINTHE !M8" 

170 H=8 : V=6 

180 INPUT"UN PETIT,IJH MOYEN OU UN GROS "iht 

135 IFfl$=""THENRUN 

190 X=flSC<A$) : IFX-80GOTO 220 

200 H-12 : V=9 : IFX = 77G0TÜ 220 

210 H=18 : V-10 

220 X=200: FORI = 1TOH:W<1,0>=X:NEXTI 
230 FORI = 1TOV :W(0,1> =X: U < H+1,1> =X:NEXTI 

235 INPUT"W/OULEZ VOUS ASSISTER A Lfl CONSTRUCTION ";fl$ 

236 F=@ : IFASC<fl$)079THENF=l 
240 Z= I NT (. RND < 1 ) #H+1 ) 

258 PRINT'LT :PRINT" "J=F0RI=1T0H 
260 : fl$= " : IFI =ZTHENAf = " " 

270 :RRINTA$; : NEXTI 
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280 
296 
300 
310 
320 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
; ne: 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


: NEXTI 


620 


380 


PR INT 

FQRJ-1T0V : PRINT" I"; 

F0RI=1T0H : PRINT" 

PRINT:PRINT" |"; 

FORI = 1TOH: PRINT"_J" ; : NEXTI ; PRINT :NEXTJ 
W-.Z, 1 ) = 1 C=2 : R=Z : S=1 : GOTO 400 
IFROHTHENR=R+l : GOTO 390 
R=1 : IFSOVTHENS=S+l : GOTO 390 
S=1:GOTO 390 
IFkKR. S)=0GOTO 360 
FOR J* 1T04 : D (. J > =0 : NEXT J 
Da>=W<R-l.S>=0 
D<2>=W<R.S~1>=0 
D(3)=W(R + 1 S)=0 

D<4 >=N <R.S+1)=0HND<C>V#H/20RS<V) 

D=0: FORJ=1T04:D=D+D<J>:NEXTJ 
IFH=0GOTO 360 
X=RNB<1)#D 

F0RD=1T04:X=X-D<D>:IFXC0THENNEXTD 
ONDGOTO 510. 530.. 600. 550 
STOP 

R=R-1 : V<R.S)=2 
GOTO540 
S=S-1:V<R.S)*1 
GOSUB1200 : GOTO 
IFSCVGOTO 570 

X=200 ; FORJ=1TOH: H<J.V+1> =X : NEXTJ 
V<R. S>=V<R. S>ORl ___ 

GOSUB1200; 8=8+1 : IFS>VfiNDC<H*V+lTHENC=C+l: GOTO 
GOTO 620 

V < R.S > =V< R.S > 0R2 
GOSUB1200 : R=R+1 
l*KR. S>=C : C=C+1 
IFC<H*V+2G0T0 400 

PRINT"^FORS=1TOV : PRINT"M"; :FORR=lTOH:GOSUB1220 :NEXTR : PRINT:PRINT 

XTS 

R=Z : 8=1 : GETR$ : OETfif : GETflf 
TI$="000000" 

R1 =R : S1 =8 : R$= " ■" : GOSUB 1000 

print"ss";ti$ 

GETfif : IFfl$=""GOTO 770 
B=RSC<R$> 

IFB=77G0T0 870 
IFD=74G0T0 890 
IFB=75G0T0 920 
IFDO73G0T0 770 
IFS=1G0T0 770 

IFflBS<V<?... S-1 )-1 = 1 GOTO 770 

8=8-1 : GOTO 940 

IFRBS < V < R. S > - 1) = 1 GOTO 770 

S=S+1 : GOTO 940 

IFR=lGOTO 770 

IFVCR-1. SK2G0T0 778 

R=R-1 : GOTO 940 

IFVCR. SK2G0T0 770 

R=R+1 

R$=" GOSUB1000 
IFSOVGOTO 760 

PR I NT " »»»*M»I3FEL I Cri TRT IONS ! " 

FORJ=1TO1000 : NEXT 
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980 GETZ$ : IFZ$O""GOT0980 

990 pr i nt " mmmmmmmmma" ■ end 

1000 PRINT"3" 

1010 FORJ*1TOS1*2-1:p R IHT :NEXT 

1 020 FOR J* 1TOR1 : PR I NT " 1*1" ; : NEXT J : PR I NT " II" ; : RETURN 

1200 I FF® 1THENRETIJRN 

1201 PR I NT " S3" : FOR J® 1 T0S*2-1 : PR I NT : NEXT J 
1210 FOR J* 1 TOR : PR I NT " »l" ; : NEXT J : PR I NT " II" ; 

1220 fl$=" " •’ X=V(R, S) : IFX<2THENfi$î=" I" 

1230 PR I NTA$; " HW" J : flf= " " : I FX=2THENfi$= " 

1240 IFX=0THENR$="_J" 

1250 IFX=lTHENfl$=" I" 

1260 PRINTflf;"H"; :RETURN 


COMMENTAIRES : Ligne 860 : vous vous déplacez vers le 

haut 

Ligne MO à 170 : initialisation des Ligne 870 à 880 : vous vous déplacez 


variables du jeu 

Ligne 180 à 230 : taille du labyrinthe 
Ligne 235 à 236 : visualisation de la 
construction * 

Ligne 240 à 740 : création du labyrinthe 
Ligne 750 : remise à zéro du temps 
Ligne 760 à 770 : affichage du temps 
Ligne 780 à 830 : test du clavier 
Ligne 840 à 850 : retour si aucune 
touche n'est pressée 


vers le bas 

Ligne 890 à 910 : vous vous déplacez à 
gauche 

Ligne 920 à 930 : vous vous déplacez à 
droite 

Ligne 940 : saut à la ligne 1000 
Ligne 950 : test si le joueur a gagné 
Ligne 960 à 990 : -fin de la partie 
Ligne 1000 à 1260 : a-f-fichage de votre 
joueur 



- COMMODORE 64 - 

SERPENT-CRASH 


Obligez le serpent du « Commodore » 
à entrer en collision avec le vôtre ou avec un des obstacles 
qui parsèment le champ de jeu. 

N = gauche, M = droite, A = haut et Z = bas. 


2 GOSUE5000 

3 R=102 : El=48 : Dl=48•’X*1 

4 PRINT"S" 

5 FORI = 1024TO1063 :POKEI,R : NEXT 

6 FOR1=1103TO1983STEP40:POKEI,R : NEXT 

7 FORI=2023TO1984STEP-1 : POKEI,R :NEXT 

8 FORI = 1944T01064STEP-40:POKEI,R :NEXT 
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10 
20 
40 
100 
110 
112 
114 
116 
118 
120 
122 
124 
126 
128 
130 
160 
200 
202 

204 

205 

206 
208 
209 
290 
29 î 
292 
300 
318 
320 
328 
330 
332 
334 

336 

337 

338 
340 
345 
347 
350 
360 
370 
602 
610 
650 
700 
705 
708 
710 

720 

721 
742 
746 
748 
750 
752 
754 
756 
758 

830 

831 


FOR1 = 1154T01173 :PQKEI,R : NEXT 
FORI = 1213T01373STEP40:POKEI,R :NEXT 
F0RI = 1354T01194STEP-40:POKEI,R :NEXT 
FORA1=1237T01240 
REflDBl 

DflTfl20,9,12,20 
POKER1, £ 1 
NEXTfil 

PQKE32986,El 
FORA1=1246T01249 
READE1 

DATA49,57,56,53 
POKEA1,El 
NEXTAl 

P0KE32994,DI 
RESTORE 

FORK=1386T019O6STEP80 

F0RL=1T0L1 

B1 = INT <35#RNDC 2 >) 

IFK+E1>1393THENIFK+B K1414GOTO208 

POKEK+E1,42 

NEXTL 

NEXTK 

A=1523:V=1=X1X=225:X2X=224:X3X=226:G0T0292 
X1 ’/.=197 ^ X2'/.= 196 : X3X= 198 

p=l106 :W=1536 : TI$="000000":POKEX1X,129 :P0KEX2K,24 :P0KEX3X,16 
REM 

GQSUB1000 
U1=PEEK(A+C1> 

I FU 1ORANBU1042GOTO340 
IFC1 = 1THENC1=40 :G0T0337 
IFC1=40THENC1=-1 : G0T0337 
IFC1=-1THENC1=-40 :G0T0337 
IFC1=-40THENC1=1 
IJ1=PEEK<A+C1 > 

IFU1=RORU1=42GOTO330 
A=A+C1 

IFPEEK<A)=81GOTO2000 
IFPEEK < A > =87THENA=A-C1 :V=5:GOTO602 
POKEA,87 
POKEH,32 
H=G:G=F:F=E^ E=A 
F ORV1 = 1T0S2 : NEXTV1 
PRINTRIGHT$<TIt, 2>"IBI" 

GETGf 

IFG$="A"THENX=-40:GOTO720 
IFG$="Z"THENX=40:GOTO720 
IFG$="N"THENX=-1 :GOTO720 
I FG$="M"THENX=1 
I FPEEK < P+X > ORGOTO830 
IFX=1THENX=-40:GOTO750 
IFX=40THENX=1 : GQTQ750 
IFX=-40THENX=-1 : GOTO750 
IFX=-1THENX=40 
I FPEEK < P+X > ORGOTO830 
IFX=1THENX=-40:GOTO830 
IFX=40THENX=1■GGTOSSG 
IFX=-40THENX=-1 : GOTO830 
IFX=-1THENX=40 
IFPEEK <P+X > =87GOTO3000 
IFPEEK < P+X)=42GOTO4000 


IFTI$="000031"GOTO4500 
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032 IFPEEK < F'+X ;■ =81THENW1 =U : W=T : V1 =V : V=U : U=V1 : T=W 1 : P=W 1 : GOTO300 
835 P=P+X: POKER,81 :POKEW,32 
840 W=V:V=U^ U-T : T=P 
900 GOTO300 

1000 V=V+1:IFV<6GOTO1040 

1002 L=C 

1003 C1 = I HT < 4$RND ( 5 > +*1 > 

1005 IFC1=2THEH Cl=40 
1020 IFC1=3THEN C1=~1 
1030 IFCl=4THENCl=-40 

1032 IFL=-C1GOTO1003 

1033 V=1 
1040 RETURN 

2000 P$=" JE VOUS HEURTE !" : GOSUE10000 
2005 GOTO4010 

2040 P$="PAS DE CHANSE JE GAGNE" : GOSUB10000 : FORI = 1TO2000 ; HEXT 
2042 P$="POUR REJOUER,PRESSER UNE TOUCHE" : GOSUB10000 
2450 GETflf: IFA$=""GÜTO2450 
2460 G0T03 

3000 P*=" VOUS NE HEURTEZ" : GOSUB10000 
3010 E1=E1+1•IFE1-58GOTO3030 ' 

3020 G0T04 

3030 P$=" BRAVO ! VOUS GAGNEZ ":GOSUB10000 : FORI = 1TO2000 : NEXT 
3040 PP.INT:PRINT ,, :«çiHi!M«!H>iiPOUR REFART IR PRESSEZ UNE CLEF" 

3050 GOTO 2450 

4000 P$="VOUS HEURTEZ UN OBSTACLE !" =GOSUB10000 
4010 Dl-Dl+1 : IFD1=58GOTQ2040 
•4020 G0T04 

4500 F$=" LE TEMPS EST FINI" : GOSUB10000 
4502 GOTO4010 

5000 REM CHOIX DES PARAMETRES 

5200 PR INT : PR INT "Il PRESSEZ : - L POUR LENT 

5210 PRINT" R POUR RAPIDE 

5220 GETA$: IFA$=""GOTO5220 

5230 IFR$="L"THENS2=50 : GOTO5400 

5240 IFA$="R"THENS2=1 : GOTO5400 - 

5250 GOTO5220 

5400 PR I NT : PR I NT : PR I NT '• PR I NT 

5402 PRINT"PRESSEZ : - N POUR UN JEU NORMAL. 

5404 PRINT" - D POUR DIFFICILE. 

5406 PRINT" - T POUR TRES DIFFICILE. 

5408 GETAÎ : IFA$=""GOTO5408 

5409 IFA$="F"THENL1 = 1 :GOTO5450 

5410 I Ffi$= " N " THENL 1 =4 : GOTQ5450 
5420 IFA$="D"THENL1=6 :GÜTO5450 
5430 IFAf="T"THENL1=S:GOT05450 


5440 GOTO5408 
5450 RETURN 
10000 PRINT": 

10010 PRINT"Wi*iMI"Pt : PR INT 


"SPRINT 


10020 pr i nt " mmiwmmmMmmmmmmmmmmm®' 

10030 FORI=1TO1000 : NEXT 


10400 RETURN 


COMMENTAIRES : 

Ligne 2 : saut à la routine de choix des 
paramètres 

Ligne 3 : initialisation des variables 
Ligne 5 à 40 : tracé du décor à l'écran 


Ligne 100 à 128 : a-Hichage de til 
Ligne 130 à 209 : a-f-fichage des 
obstac1 es 

Ligne 290 à 292 : mise à jour des 
variables 

Ligne 300 à 610 : déplacement de 1 


1985 


► 
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cheni11e 

Ligne 650 à 710 : test du clavier 
Ligne 720 à 1033 : boucle principal du 
jeu 

Ligne 2000 à 2005 : test de collision 
Ligne 2040 à 2460 : -fin du jeu 
Ligne 3000 à 3020 : test de collision 


Ligne 4000 à 4020 : test de collision 
entre vous et un obstacle 
Ligne 4500 à 4502 : le temps limite es( 
atteint 

Ligne 10000 à 10400 : a-f-fichage d'un 
message 


- COMMODORE 64 - 

POM POM POM POM 


Empêchez une chenille de grandir 
en tirant sur ses pommes préférées et sur ses nouveaux 

anneaux. 

A = gauche, S = droite, et L = feu. 



1 W=0■M=9 : X=2010 

2 POKE53280, @ : P0KE53281, 0 : PR I NTCHRî <147) 

15 FQRG= 1T 09 : Z < G ) = 1080-G •’ H EX T G 

20 FQRK=0TO50 : POKE1105+1NT < RND<1>*840>,168 : NEXTK:POKEZ<1),81 

30 POKEX,65 

31 GOSUBS10 

34 IFT=0THEN40 

35 G=PEEK<R-40) •’ IFG=32THEN38 

36 T=0: POKER,32 : GOTO500 

38 IFR<1064THEHT=0 : POKER,32 = GOTO40 

39 POKER,32 :R=R-40: POKER,30 

40 fl=PEEK<197):IFfl=64THEH30 
50 IFfl=10THEH100 

60 IFfl=13THEH200 

78 IFfl=42THEH300 

80 GOTO30 

100 IFX=1984THEN30 

110 IFPEEK < X-1 > O32THEH30 

120 POKEX,32 :X=X-1 :GOTÛ30 

200 IFX=2023THEH30 

210 I FPEEK < X+1 ) O32THEH30 

220 POKEXj32 : X=X+1 : GOTO30 

300 IFT=1THEN30 

310 T=1 :R=X-40: POKER,30 = GOTO30 

508 IFG=160THEHPOKER-40,127:SC=SC+1 

510 IFG=127THENPOKER-40,255 :SC=SC+1 

520 IFG=255THEHPOKER-40,32 :SC=SC+3 

530 I FG=81THENPOKER-40.• 160 : SOSG+38 : GOT02000 

540 GOTO40 
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610 W=W+1 : IFN>9THENW=1 

611 IFZ CW>>2023THENZ(W>=1075 

612 IFZ < W) =0THEH790 

630 ?FQ*32THENP0KEZ<W);32 : Z<W)=Z<W)+1 : POKEZ< W )81 : GOTO790 
640 IFQ=30THENPOKEZ < W ),160 :SC=SC+1: Z00=0 : GOTO790 
650 IFQ=65THEN2100 

660 POKEZ<1-0,32 : ZOO=ZOO+40 : POKEZ<W) 31 

790 IFW=9THENW=0 

791 RETURN 
2000 R=R-40 

2020 IFR=Z<P)THENZ(P)=0 : FORG=PTGM : Z<G)=Z03+1) : NEXTG : N=H-1 : GOTO2031 

2031 F 1=0 : FORP=1 TOM : FI =F I+Z < P > : NEXT : IFF IO0THEN30 

2032 IFM=1THEMM=9:N=M:GOTO2035 

1111 FORP*1TOM :Z<P)=îl080-P+C20“2#ri>ife40 : POKE1064+INT<RND<1)#880>* 160 ; NEXTP 

illl PRINTCHR.$< 147) : PRINT"VOUS ETES MORT H!" u 
2110 PRINT"VOUS AVEZ REALISE LE SCORE DE joCj POINT* 

2120 GETA$ : IFA$=""THEH2120 

2130 RUN 


COMMENTAIRES : 

Ligne 1 à 20 s initialisation des 
variables 

Ligne 40 à 220 : test du clavier et 
déplacement de la balle 
Ligne 300 à 310 : déplacement du missile 
Ligne 500 à 540 : teste la collision, la 


chenille et un missile puis augmente le 
score sj nécessaire 
Ligne 620 à 796 : déplacement de la 
cheni11e- 

Ligne 2000 à 2032 : la chenille est 
touchée 

Ligne 2035 : la chenille est morte 
Ligne 2100 à 2130 : -fin de la partie 


— COMMODORE 64 


SUPER-BABALLE ! 

Dirigez une balle vers sa cible 
grâce à des déviations judicieusement choisies. 
A = droite et B = gauche. 



1 POKE53280, 0 : P0KE53281,0 : PR I HT " 11" i CHR$ < 147 ? 

2 FORI=1024T01063 ; POKEI>102 ; NEXTI : FÛRI=1063TQ1063+24#40STEP40 : PüKEI>102 
4 POKEI + ï 7102 : NEXTI • FOR I=1985TO2022 : POKE1,102 = H EXT I 

1 fi z- 1065+1 NT < RMD < 1 ) #38 > +1 NT < RMI' < 1 ) #22 >#40 

20 X=1 465 -V=1■POKEZ,87 : TI$= "000000 " 

21 P0KEX,31 
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22 GETfl* : IFA$=""THEH25 

23 IFfi$="fi"THEN400 

24 IFfi$="S"THEN50S 

25 REM POUR RALENTIR CE JEU,IL SUFFIT DE TAPER '26 FÛRR=1TO30 : NEXTR 

26 FÜRR=1TO30 : NEXTR 

29 fi=PEEk<X+V:> 

30 IFFN32THENPQKEX,32•X*X+Y:G0T021 
40 IFfi=102THENV=-1♦V : G0TÜ21 

50 IFfl=87THEN100 

60 IFfi=77THEN•POKEX,32-X=X+Y:GOTO200 
70 IFFN78THEN:POKEX,32 :X=X+V :GOTO300 
80 G0TG21 

100 PR INTCHR* < 147> : PR I NT 11 BRAVO, VOUS AVEZ GAGNE " : PR INT 

110 PRIHT : PRIHT : PRINT"VOTRE SCORE EST DE "; INT<<9999-TI> / 100>;" POINTS ! ! !" 
120 PR INT : F*R I NT : PR I NT " VOULEZ VOUS REJOUER ???" 

130 GETA$: IFfi$=""THEN130 
140 IFfi$="O"THENRUN 
150 IFfifO"N"THEN130 
160 END 

200 IFV=1THENV=40:GOTO240 
210 IFV=-1THENV=-40 :GOTO240 
220 IFV=40THENV=1 :GOTO240 
230 V=-l 

240 X=X+V : G0TQ29 

300 IFV=1THENV=-40:GQTO240 

310 IFV=-1THENY=40:GOTO240 

320 IFV=40THENV=-1 : GOTO240 

330 V=1 : GOTO240 

400 IFPEEK < X+Y > = 102THEN29 

405 IFPEEK<X+Y> =37THEN100 

410 PÜKEX+V,77:GOT023 

500 IFPEEK< X+Y> = 102THEN29 

505 IFPEEK<X+Y> =87THEN100 

510 POKEX+Y,73:00TQ29 


Ligne 29 à 80 : test des différentes 
col 1isi ons 

Ligne 100 à 160 : -fin de la partie 

Ligne 200 à 240 : rebond 1 

Ligne 300 à 330 : rebond 2 

Ligne 400 à 410 : déviation 1 

Ligne 500 à 510 : déviation 2 


COMMENTAIRES : 

Ligne 2 à 4 : affiche le cadre du jeu 
Ligne 10 : choisi l'emplacement de la 
cible 

Ligne 21 : affiche la balle 
Ligne 22 À 24 : test du clavier 


COMMODORE 64 


FIRE 


—— 



Sauvez les habitants d'un immeuble en flamme. 
Votre brancard se déplace 
grâce aux touches M pour aller à droite, 
et A pour aller à gauche. 
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0 SC-SC+0 

1 PQKE53280,0 :P0KE53281,0 1 PRINT"n" 

2 RESTORE_ 

1 Q IFfl=0THENA=160 :B=102 :C=37:D=31 :E=78:F=77:G=103 = H=100 : V=32: IFM=0THENM=1 
21 P0KE1256,M+48 

23 PRINT"»ll(IW»WWWW«WWWiW»MH"SC 

30 fl1=1307 : F1 = 1308 : G1=1346 : Cl—1267 : 02=1347 : E1=1306 

40 B1 = 1833^2= 1834 :B2=1839 : D1 = 1793:03=1872:04=1873 :B2=1799 :E2=1838 
50 05=1878:06=1379 : H1 = 1835 :H2=1836 :H3=1837 
60 PÜKEB1,B :P0KEB2,E = P0KED1,D = P0KED2,D 
70 P0KEE2,E:P0KEF2,F :PQKEG3,G :P0KEG4,G 
80 P0KEG5,G :P0KEG6,G :POKEH1,H = P0KEH2,H 
90 P0KEH3,H 
100 REM 

110 Z=PEEK< 197) 

120 IFZ=64THEN300 
130 IFZ=10THEH200_ 

150 POKEB1fV^P0KEB2,V : P0KED1,V : P0KED2,V : P0KEE2,V :PÜKEF2,V : PÛKEG3,V : P0KEG4,V 
160 PÔKEG5,Y :P0KEG6,V : POKEH1, Y :F0KEH2,V = P0KEH3, Y 

170 Bl=Bl+6 : B2=B2+6 •' Dl=Dl+6 : D2=B2+6 ; E2=E2+6 : F2=F2+6 • G3=Go+6 • 04-04+6 
180 05=05+6 : 06=06+6 : Hl=Hl+6 : H2=H2+6 : H3=H3+6 
190 GOTO300 

lie ROkÈe}?v®POKEb1 0 V:P0KED1,V :PÛKED2,V :P0KEE2,V :P0KEF2,V :P0KEG3,V :P0KEG4,V 
220 P0KEG5,V : P0KEG6,V : POKEH1,V : PÛKEH2,Y : P0KEH3,V _ . 

230 B1=E1-6 : B2=B2-6 : D1=D1-6 : B2=H2-6 : E2=E2-6 : F2=F2-b ; 03=03-6•04=04-6 
240 05=05-6:06=06-6 : Hl=Hl-6 : H2=H2-6:H3=H3-6 

300 POKER 1, V : POKEC 1, Y : POKEE1, Y : POKEF1 .■ Y : POKEG1,Y : P0KEG2, V 
310 RERBS 

320 IFR1=1796THEN500 

321 IFR1=1802THEH600 

322 IFR1=1803THEH700 

323 IFR1=1697THEH800 _ „ 

330 A1=fl1+S : C1=C1+S : E1=E1+S : F1=F1+S : G1=01+3 : 02=02+^ 

340 POKER1,R : POKEC1,C : POKEE1,E : POKEF1,F :POKEG1,G•POKEG<i, G 
350 GOTO60 

500 IFH2=1336THEN330 
510 n=n+i 
520 IFM=4THENEND 
530 P0KE1256.M+48 
540 00T02 
550 END 

600 IFH2=1842THEN330 
610 GOTO510 
700 IFH2=1848THEN330 
710 GOTO510 
800 SC=SC+1 

810 G0T02 _ ... 

1000 DRTR5,283,201,-200,-158,123,*41 
1010 DRTfl-119,-78,82,121,-79,-77,3,42,0 
2000 PRINT"nH" 

2010 pRi\\T u mmmm 


2020 PR INT" I n n n I31IIIIIIIII U I I u [*■■■ 
2030 PRINT" I L - J l —^ 1 IMmMIill——• 
204# PRINT" I i—i r—I iminiuii 

2050 PRINT" I L - 1 L — 1 D9NIIIHII- 181111 

2060 PRINT" ‘ 

2070 PRINT"»»EW»i»iUOMBRE DE RESCAPES 


■ i 


H Ml 


4 Ml 


III 

III 


I" 


► 
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2080 PR I HT " DE SAUVETEURS NQ:" 

2100 print'^st toihii + » pii«iaia ■jfiaaaaai 4 5 * * * * * 11 

2398 PRINT"H" 

2999 RETIJRN 


COMMENTAIRES : 

Ligne 0 à 50 : initialisation des 
variables 

Ligne 60 à 90 : affichage du décor à 
1 •'écran 

Ligne 110 à 130 : test clavier 
Ligne 140 à 160 : a-f-fichage des dessins 
Ligne 170 à 190 : mouvement des 
brancards à droite 


Ligne 230 à 260 : mouvement des 
brancards à gauche 
Ligne 300 à 350 : test de collision 
Ligne 500à 810 : remise à zéro après 
col 1ision 

Ligne 1000 à 1110 : données du jeu 
Ligne 2000 à 2060 : affichage de 
1'immeuble 

Ligne 2070 à 2999 : affichage du texte 
du jeu 


- COMMODORE 64 - 

ROBOTS 

Des robots vous poursuivent dans une pièce aux murs 
électrifiés. Seule solution pour survivre, 
les pousser contre les murs. 

7 = haut et gauche, 8 = haut, 9 = haut et droite, 4 = gauche. 
6 = droite, 1 = bas et gauche 
2 = bas, 3 = bas et droite. 



4 POKE 53280/12 : PQKE53231/13 

5 PR INT ".TH" 

10 PRINT TRB<17);"ROEOTSÏW" 

20 PRINT"VOUS ETES DANS UNE PIECE DONT LES MURS" 

30 PRINT"SONT ELECTRIFIES.IL V A CINQ ROBOTS DE PROTECTION AVEC VOUS." 
40 FRINT"ILS VEULENT VOUS TUER.ILS SONT DESSINES COMME CECI:" 

50 PRINT"'+';VOUS COMME CECI:'#' ET LES CLOISONS ELECTRIFIEES :'tf'." 

60 PRINT"VOTRE SEULE CHANCE DE SURVIE EST QU'ILS TOUCHENT LES CLOISONS." 
70 PRINT"POUR EÜUGER: 7.8.9" 

80 PRINT" 4.#.6" 

90 PRINT" 1.2.3" 

100 PRINT 

110 PRINT"S=NE PAS BOUGER" 

120 PRINT"A=ABANDON/SITUATION SANS ESPOIR" 

130 PRINT"0=SAUT GIGANTESQUE" 

140 PRINT 
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750 PRIHT"VEUILLEZ PATIENTER UNE PETITE MINUTE ! !" 

180 DIM FK30,30>,fll<30,30>,Na2>,L<5>,t*K5>,Ll<5>,Ml<5> 
190 REM 

210 FOR B=1 TO 30 
220 FOR C=1 TO 30 
230 X*INT<10#RND<1>> 

240 IF X=5 THEN 270 . 

250 flCB/C)=flSC<" "> 

260 GOTO 280 

270 R<B#C>=RSCC"X"> 


280 NEXT C 
290 NEXT B 
295 PR INT'TT' 

300 FOR D=1 TO 10 

310 R<D/1>=RSC<"X">= fl<D,20)=RSC<"X"> 

320 NEXT D 

330 FOR F=1 TO 20 

340 R<1,F)=RSC<"X">= fl<10,F>=RSCC"X") 

350 NEXT F 

360 GOTO 410 

370 H=INT<2+8*RNDa>> 

380 I*INT(2+13#RND<1)) 

390 IF fl<H,I)ORSC<" "5THEN 370 

400 RETURN 

410 GOSUB 370 

420 RCH,I)=RSC<"#") 

430 J=H : K=I 
440 FOR N9-1 TO 5 
450 GOSUB 370 
460 R<H,I)=RSC("+"> 

470 L<N9)=H : MCH9)=I 

490 FOR T Bl=l TO 10 : FOR B2=l TO 20 : RKB1 ;B2>=fl<Bl .> B2) : NEXT B2 : NEXT B1 

500 FOR Bl=l TO 5 : L1<B1)=L<B1) : M1<B1)=M<B1) : NEXT B1 

520 J1 = J•K1 = K 

530 Y9=0 

535 PRINT"3" 

540 FOR D2=l TO 10 
550 FOR B2=l TO 20 
560 N$=CHRf<R <D2,B2 >) 

570 PRINT NfJ 
580 NEXT B2 
590 PRINT 
600 NEXT D2 

610 IF V9O10 THEN 640 
620 PRINT 
630 GOTO 890 

640 GETY9$: IFY9$=""THEN640 

641 IFY9$="fl"THEH 1230 

642 IFY9$="0"THEN 860 

643 IFY9$="S"THEN 1070 

644 V9=RSCCY9t)-48 

645 IFY9<0ORY9>9THEN 640 

649 PRINT"»" 

650 J2=J■K2=K 

690 ON V9 GOTO 820^800;780/ 840;890 >760 ..700/ 720.740 

700 J=J—1 : K=K-1 

710 GOTO 890 

720 J=J-1 

730 GOTO 890 

740 J=J-1 : K=K+1 ___ 





750 GOTO 390 
760 K=K+1 
770 GOTO 890 
780 J=J+1 : K=K+1 
790 GOTO 890 
800 J-J+l 
310 GOTO 890 
820 J=J+1'K=K-1 
830 GOTO 890 
840 K=K-1 
85G GOTO 390 
860 PRIHT"3" 

865 FKJ,K>=32 

870 J=IHT <2+8*RHD<1 )) 

880 K=IHT(2+18*RHD< 1 ) ) 

890 IF fl < J,K)=ASC <"X")THEH 1260 
900 fl<J2,K2>=ASC<" ") 

910 A<J,K)=flSC<:"*"> 

920 GOTO 1070 

930 REM MOUVEMEHT ROEOT 

940 IF FKX/t*) =flSC<"X">THEH 1040 

950 X2=X : V2=V 

960 X=SGH(J-X>:t-SGH<K-V> 

970 X=X+X2^ V-V+V2 
980 I Ffl <X V ) =flSC < " * " J THEH 1050 
990 IF fl<X,V>=flSCC M ">THEH 1020 
1000 FKX2.' V2>=flSC<" "> 

1010 RETIJRH 

1020 FKX/T , >=flSCC , + ,, > 

1030 fl<X2j V2>=flSC<" ") 

1040 RETIJRH 
1050 G9=99 
1060 RETURH 

1070 PRIHT"3" : FOR H3=l TO 5 
1080 X=LCH9) : V=M<N9) 

1090 G9=0 

1100 GOSUB 940 

1110 IF G9O0 THEH 1240 

1120 L < H9)=X : M <H9 > =V 

1130 HEXT H9 

1140 FOR H9=1 TO 5 

1150 IF fl < L < H9 ).» M < H9 ) ) O FISC ( " " > THEH 1170 
1160 fl<L<H9>,<M9))=flSC<"+"> 

1170 HEXT H9 
1180 FOR H9=1 TO 5 

1190 IF FKL<H9>,M<H9>K> flSC<"X")THEH 540 
1200 HEXT H9 

1210 PR I HT "MUS AVEZ DETRUIT TOUS VOS EHHEMIS .VOUS AVEZ DONC GflGHE " 
1220 GOTO 1290 
1230 PRIHT"ZEOMMAGE,HEIH?" 

1240 PRIHT"."»**VOUS AVEZ ETE DETRUIT PAR UH ROEOT CHAHCEUX***" 

1250 GOTO 1290 

1260 PRIHT'THAUT VOLTAGE!!!!!!!!!!!!!" 

1270 PRIHT"***** ZAP *****VOUS ETES MORT!!" 

1280 PRIHT 

1290 IHPUT"UHE AUTRE PARTIE < O/H)" i H9$ 

1310 IF H9fO"0"THEH 1400 
1320 IHPUT " MEME PGSITI OH <O/H ) " ; H9* 

1340 IF H9$C>"Q"THEH190 
1345 PRIHT"ZI" 

1350 FOR E1 = 1T0 10 : FOR B2=l TO 20: AŒ1,B2>=A1CB1,B2> : HEXT B2 : HEXT El 
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prie El = l TO 5 :L<B 1 )*LKB 1 >:M<B 1 )*M 1 <B 1 ):NEXT El 

1380 J=J1 : K=K1 
1390 GOTO 530 

1400 END __ 


COMMENTAIRES : 


Ligne 4 : couleurs 

Ligne 5 : efface l'écran 

Ligne 10 à 150 : instructions 

Ligne 180 : dimensionnement des tableaux 

Ligne 210 à 290 s création du terrain 

Ligne 295 : e-f-face l'écran 

Ligne 300 à 350 : dessin des murs 

externes 

Ligne 360 à 400 : sous programmes de 
recherche d'a-f-f ichage 


Ligne 410 à 490 : enregistrement du 
tableau 

Ligne 500 à 630 : affiche le tableau 
Ligne 640 à 645 : test du clavier 
Ligne 650 à 690 : aiguillage du 
programme 

Ligne 700 à 850 : mouvement du joueur 
Ligne 860 à 1010 : affichage et testde 
position 

Ligne 1020 à 1200 : recherche 

Ligne 1210 à 1280 : test si le joueur a 

perdu ou gagné 

Ligne 1290 à 1400 s fin de partie 


- COMMODORE 64 - 

RACER 

Quatre circuits, quatre challenges, 
et, entre vos mains, 

le volant d'un bolide aux performances époustouflantes. 
Mais attention, vous n'êtes pas seul 
en piste. 

Que le meilleur gagne ! 





I POKE53230/4 :P0KE53281/7 

10 RRINT":iP»M*»*»»M»iFAC:ER " 

II REM CHOIX DES PARAMETRES _ 

20 INPUT"«NOMBRE DE VOITURES <1 H 4>";N 

30 IFNO1ANDN02ANDN03ANDN04THENPRINT m / : G0T02U 

40 INPUT"MQUEL CIRCUIT (1 A 4>";X 

53 IFXO1ANDX02ANDX03ANDX04THENPRINT"TT' J : UUTü4ü 
60 I NPUT "«COMBIEN DE TOURS <1 A 9) 11 JL 

11 , d*< 8 >, Q <4> , L < 4 >, i*«> 

90 ?ORI=0TO42 = READSX< I > = READTX< I > : IFTX< I ■> >NTHENSX< I ;■ =0 ; TV .< I > =0 

100 NEXTI : FOR I =0TO8 ; READDX (I ) : NEXTI ^ A . _ _ „ ... 

110 DATA©, 0,0,0,0>0,0j0f0>0'0f8'0'8'0'0'Z i i. 1 - o 1 fl 1 a 0 fl W o 0 a W B ll, ft®a 0 Cl W ' î' \ 3 '-l? 
120 DATAS/0 / 0/0/. 0/0/0- i 0;0- i 0'0- ,0 - ,0 ' 0 ' 0 ' 0 ' y -’ 010 ' 0J0i0 ' 0 ' 0 i 0 ' 0 i 0J 0 Ï -1 ',?' 1 i £' 1 ‘ - 
13B DATAS.0,0.0.-1 / 4,0/0/0/0/1/2/0/0/ 1/4/0/0/0/1/41.. 40/3b 1 / 1 /-41 .■ -4ü/-3^ 

140 PRINT" m»r ■ ÜNNGOSUB10030/10020/10010/10000 : PRINT "M" 

150 ONNGOSUB20030^20020?i0010/20000 : PRINT"WfiF'OUR COMMENCER APPUYER SUR RETURN" 
170 GETA$ ; IFA$=""THEN170 __ 
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180 I Ffi'SC < A$ > <>13THEN170 

190 PR INT "T; : ONNGOSUE20030 , 20020,20010,20000 : ONXGOSUB 1010,2010,3010,4010 

200 G C1> = 1120 ; G C 2 > = 1725 : G C 3 > = 1113 : G C 4 > = 1120 : PGKEG C X >, 127 

210 POKEGCX>+40,127 : LC 1>=1240 : LC2>=1605 : L<3>=1233 : LC4)=1240 

220 POKEL C X >-3,14 : POKEL < X)-2,37 : PGKEL C X >-1,58 : POKEL C X >, 96 

230 POKEL < X > +36,20 : POKEL C X ) +37,15 : POKEL C X > +38,21 •’ POKEL C X > +39,18 

240 FORI = 1TON : POKEL <X> +1,123+I : NX CI> =48 : POKEL C X >+40+I,NX CI> : NEXTI 

245 REM DEPLACEMENTS 

258 FOR 1 = 1 TON • VXC I >=-l : BXCI >=32 •' G=INTC CN-I V2> : PC I >=GCX>+G+1+40*C2*G+1-N+1 > 
260 POKEF' ( I > , I : NEXT I : FOR I = 1 TO2000+2@00#RNDC1 > : GETfl$ : NEXT I 
270 FORI = 1 TON ^POKEPa), 123+1 =NEXTI : T I$=" 000000" 

230 PR I NT " ; RIGHT$ < TI $, 4> ; 

290 fl=0 •• GETfl$ : IFfl$0" "THENI=ASC<A$>-43 

30ü IFI>0RNBI<43THENVXCTXCI >> = CVX<TXC I>> +SX(I>>ANB7 

310 FQRI = 1TQN : QC I )=PC I )+DX<VXC I )+l > : CXC I>=PEEKCQCI > ) 

320 IFCXC I > OS2RNDCX<1)0127THEN350 

330 POKEP<I), BXCI> = PCI>=G<I>:BXCI>=CXCI>:POKEPCI>,128+1 

340 IFBX<I>=127THENNX <I> =NX<I) +1 :POKEL <X > +40+1,NX <I>: IFNX CI>=L+43THEH360 

350 NEXTI : GOTO280 

360 F-P+1 : POKEF 1 < I >, 127 : P CI > =L < X > +1 : POKEP CI), 128+1 : POKEP CI > +40, P+176 
370 BXCI >=32 ^ IFPONTHEH280 
380 GETR$: IFR$=""THEN380 
390 IFRSC C fl$ > 013THEN380 
400 CLR^ RESTORE : GOTO10 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1030 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1130 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 


REM CIRCUIT 1 
PRINT"++++++_ 
PRINT"+++++✓ 
PRINT"++++/ 
PRINT"+++/ / 
PRINT"++/ 
PRINT"+/ 
PRINT" 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT"+\ • 
PRINT"++\ 
PRINT"+++\ 
PRINT"++++\ 
PRINT"+++++\ 
PRINT"++++++ ‘ 
RETIJRN 

REM CIRCUIT 2 

PRINT"++++_ 

PRINT"+++/ 
PRINT"++/ 
PRINT"+/ 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 



,++++++", 
\+++++" 
\++++", 
. \+++", 
\++", 
\+", 


++++++++++++++++++++++++++++++++ 

++++++++++++++++++++++++++++++++ 

++++++++++++++++++++++++++++++++ 


++++++++++++++++++++++++++++++++ 

++++++++++++++++++++++++++++++++ 

++++++++++++++++++++++++++++++++ 

++++++++++++++++++++++++++++++++ 

++++++++++++++++++++++++++++++++ 


\++++++++++++++++++++++++++++++++/ 



/+" 
/++" 
/+++" 
/++++" 
/+++++" 
+++++"; 



+++++++++ 

++++++"; 

\+++++++/ 

\+++++"; 

N+++++/ 

\++++"i 

1 +++/ 

\+++"; 

1 ++/ /~ 

\ \++"; 

| +/ /++++++++++++++\ \+"; 


/++++++++++++++++\ 

/+++ _ +++++ | 

\++++ I 
\+++ I 
\ \++ I 
I ++\ 


/+++/ / 

I ++/ /++++++++++\ 


/+++++++++++ 
/■++++++++++++ | 
'+++++++++++++/ 
_ / 


I I 


I ++ I 


++ 
++ 
I ++ 
/+++ 
/++++ 


I I 


/+"; 

I +"; 
l +"; 

+"; 

+"; 

+"; 




94 


































2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 

9999 

10000 
10010 
10020 
10030 
20000 
20010 


I I 


I I 


PRINT" 

PRINT" 

PRINT" I 
PRINT"+\ 

PRINT"++\ 
PRINT"+++\ 
PRI NT "++++' 
RETIJRH 


+++++\ 

++++++" 


v 


/+++++/ I +"; 
■+++++/ /++"; 
/+++"; 
_/ /++++"; 
/+++++" 
/++++++"; 
“++++++" 


REM CIRCUIT 
PRINT"+++ 

PR INT "++,••' 

PRINT"+/ 

PRINT" I 
PRINT" I 
PRINT" I 
PRINT" I 
PRINT"+\ 

PRINT"++ _ 

PRINT"++++++++++++++++++++ \ 

PRINT"+++._+++++++++++ | 

PRINT"++/ 

PRINT"+/ 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT"+\ 

PRIHT"++\ 

PRINT"+++\ 

PRINT"++++ 

RETIJRN 
REM CIRCUIT 
PRINT"+++ 



PR INT 
PR INT 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT"+\ 

PRINT"++\ 

PRINT"+++\ 

PRINT"++++\ 

PRINT"+++++> 

PRINT"++++++ 

RETIJRN 

REM TOUCHES DE CONTROLE 
PR I NT " CONTROLESMMmiPOUR 
PR I NT " CONTROLESMMMMPOUR 
PR I NT " CONTROLESKHIIMPOUR 
PR I NT " CONTROLESJÜIimPOUR 
PRINT"Mr<-D->VW"; 

PRINT"IU<-C->PM"; 


TJ 

t; 

tj 

H" :RETURN 






































20020 PR I NT " œ<-B->WM" 

20030 PRINT"M8<-R->9M" : RETURN 

RERDV. 


COMMENTAIRES : 

Ligne 1 : Initialisation des couleurs de 
■fond et d'écran 

Ligne 10 à 70 : Choix des paramétres 
Ligne 80 à 90 s Initialisation des 
variables 

Ligne 140 à 150: Branchement aléatoire 
vers un circuit 


Ligne 170 à 240 : Déplacement des 
voitures 

Ligne 245 à 400 : Tests de collisions 
Ligne 1000 à 1250 :Tracé du circuit I 

Ligne 2000 à 2230 : Tracé du circuit II 

Ligne 3000 à 3230 : Tracé du circuit II 1 

Ligne 4000 à 4250 : Tracé du circuit IU 

Ligne 10.000 à 20030 : Touches de 
contrôle 


COMMODORE 64 

TANKS 


Lancez votre char dans une course infernale. 

Votre but : rejoindre la base avant le char ennemi 
tout en détruisant le plus de cibles possibles. 

Pour le joueur numéro un_, 6 = droite, 4 = gauche et 5 = tir. 

Pour le joueur numéro 2, 

8 = droite, O = gauche et 9 = tir. 



1 GOTO 1580 
5 G0T070 

10 RD= 1933 : RRX=225 : LRX=97 : KX=81 : RX=93 : VX=40 ; DIMB<2) : DI MCE <2 > •’ K1 X*=81 : K2X=87 
15 HX-1 = LY.=32 ■ 0Y.=22 6 : URX=98 : HRX=64 : DX= 1 : SI=1914 : DI Y.= 1 : T1 X=0 
17 REM INITIALISATIONS 

20 PÛKERD-1, RRX : P0KEAD , K Y. • P0KEAD+1, LRX : P0KEAD-VX, RX 
25 PQKEAD+VX,LX 

30 I FESO" 4 " ANDESO "6 " ANDESO " 8 " ANDESO "0" THENPOKEAD+VX-HX. LX ■ P0KEAD+VX+H Y., LX 
40 RETURN 

50 VX=40 ^ P0KEAD, KX : POKEAD+VX .■ OX ■ P0KEAD-VX > URX : PGKEAD+XX, HR Y. 

55 P0KEAD-XX,LX 

57 REM ANALVSE DES TOUCHES ENFONCEES 

60 I FEÎO " 4 " ANDESO " 6 " ANDES O " 8 " ANDESO " 0 " THENFQKEAD-XX-VX , L Y. ■ P0KEAD-XX+VX , LX 
65 RETURN 

70 RS="S - ■" 

75 PR INT "73" RS; 

80 PR INT : F0RI = 1T023 : PRINT" El " : NEXT 

90 PRINTRS;"3" 

100 FORI=1T010 : ZFX=1+INT(37*RND<2>) 

103 IFI=1ANDZFX=370RI=1ANDZFX=1GOTO100 
105 F0RK=1T0ZFX : PRINT"M"; : NEXT : PRINT"#W" 

110 NEXTI 
113 PR INT "JM" 
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115 


120 
125 
149 
156 

151 

152 

153 

154 

155 
158 
160 
170 
172 
175 
180 
182 
185 
190' 
200 
202 

205 

206 
210 
0 

215 
220 
225 
227 
230 
240 
500 
510 
528 
530 
535 
540 
598 
600 
610 
612 
614 
628 
622 
624 
630 
650 
655 
660 
665 
670 
680 
682 
684 
686 
700 
710 
720 
730 
740 
745 
750 
770 
730 
790 
792 
81ü 
820 
825 
830 


* "ZX<1>"II TOUCHES" 

"ZX<2>"II TOUCHES"; 


FORI = 1TO18 : ZFX=1+1NT <37#RND<2 > > 

FORK= 1 TOZFX = PR I NT 1 " W i ■ NEXT : PftI NT " +M" 

NEXTI 

GOSUB10 : T=TI 

PRINT"H";"a CANON 1 : "SX-II TIRS i 
PR INT" ; 

PR INT "Ma CANON 2m:"SlX"ll TIRS 
IFB a) = 10ORE< 2)=10GOTO730 
IFP>0THENP=F— 1^IFP=0THENK1X=81 
IFG>0THENQ=Q-1 :IFQ=0THENK2X=87 
GETEf : IFEf=""GOTO185 
IFE$="8"ANDQ=0THENGOSUE1000 : GOTO150 

IFEf="4"AHDP=0THENTX=TX+l ■ DX«DX-1-4*<SGN<DX-1>-l> :GOSUB700 : GOTO150 
IFEt="0"AHDQ=0THENGOSUB1200 : GOTO150 

I FEf= " 6 " ANDP=0THENTX=TX+1 : DX=DX+1 -4*I NT CDX/4 > : GOSUB700 : GOTO 150 
IFE$="5"flNDP=0THENSX=SX+1 :GOSUB590■GOTO150 
IFEf= "9"ANDQ=0THENS 1 X=S1X+1 : GOSUB1400 : GOT0150 
IF < TI-T2 >>20THENGÛSUB900 
GOTO150 

T2=TI :ONDXGÜSUB205,220,210,230 
RETURN 

IFPEEK < AD-80)=LXRNDPEEK <AD-39)=LXflNDPEEK < AD-41> =LXTHENRD=flD-40 = VX= 
RETURN flllM 

IFPEEK <AB+80 >=LXRNDPEEKCAB+41> =LXflHDPEEK<AB+39 > =LXTHEHRD=flD+40:VX= 


RETURN 

v*:=40 

IFPEEK < AD+2)=LXRNDPEEK<AB-39)=LXRNDPEEK(AD+41>=LXTHENRD=RD+1 : XX=1: 
RETURN 

IFPEEK < AD-2)=LXRNDPEEK < AD-41)=LXRNDPEEK <AD+39)=LXTHENRD=RD-1 : XX=-1 
RETURN 

IFDX=1THENVX=40•XX=0 
IFDX=3THEHVX=-40 : XX=0 
IFDX=2THENXX=1 
IFDX=4THENXX=-1 
REM OH TOURNE 
RETURN 

qv = ^ 

GOSUE500:1FDX=2QRDX=4GOTO620 

FOR I =2TO 11 : WR=RD-1 #VX : I FPEEK < WA ) OLXTHEHQTH=RD- <1 -1 > *VX '■ GOT0650 
POKEWA,46 ^IFI>2THENPQKEWR+VX,LX 

NEXT : POKEWA, LX • GOTO630 _ _ 

F0RI=2T011 • WA=RD+I#XX : IFPEEK<WA)OLXTHENQTH=AD+< 1-1 >*XX : GOTO650 
POKEWA, 46:1FI>2THENPQKEWfl-XX, LX 
NEXT : POKEWA,LX 
RETURN 

IFI >2THENP0KEQTH, LX ■ GOTO660 

RETURN 

Z=PEEKCWA> 

I FZ=420PZ=43THENP0KEWA, LX : Z X < CX ) =ZX < CX ) + < 85-2#Z ># C 3-2*CX ) : B < Z-41 ) = 
IFZ=2250RZ=970RZ=310RZ=870RZ=930RZ=2260RZ=980RZ=64G0T0682 
RETURN 

IFCX=2THÉNP=9 •’ POKESfl, 102=K1X=102 
IFCX=1THENQ=9:POKES1,102:K2X=102 
RETURN 

GOSUB500:1FABS < VX)>1THENGOSUB20 
IFABS < XX)=1THENGOSUB50 
RETURN 
REM 

T=INK<TI-TV60> 

REM FIN DU JEU 

PRINT"J8SKKMH-E JEU A DURE : "T "Il SECONDES 
PRINT"»t»CANON 1 : "SX; TAB< 19) ; "TIRS 

pr i nt" ümiiiiiiiimii zxa ; tab a9) ; "touches 

PRINT"M»»»CANON 2 - "SIX, TAB< 19,' ; "TIRS 

PRiNT"»»»**»»w»»»»*rzx<2> ;tab(19) ; "touches 
PRINT"WW»W»MION JOUE ENCORE "; : INPUTAf 
IFASC <Af >=78THENEND 
REM OH RECOMMENCE 
CLR •• GOTO70 


40 :GOSUB20 
■ 40 :G0SUB2 

GOSUB50 
:GOSUB50 


B<Z-41>+1 










900 E$="5":GOSUB500:IFP>0GOTO907 

905 K‘i=Kl£ : GOSUB200 

906 IFQ>0THENRETURN 

907 3R=RD : RD=S1 

910 D2?i=D;-i : ir/.=d i y. ■ kx=k2x ■■ GOSUB200 =s 1 =rd : rd=sr= Dy.=B2y. ■■ kx=k 1 y. ■ return 
1000 tix=jix+i : Di^=Di^-i-4#<sGN<Di?i-n-i) ■B2y.=Dy.-By.=my. 

1010 KX=Q7 ■ SR=RD : RD=S 1 : GOSUB700 : RD=SR : D?i=D2Z : KJi=81 : RETURN 

1200 T1*=T1X+1 :DlK=DlZ+l-4#INT(DlK/4> :D2X»D2:Dîi*DlZ 

1210 KK=87 : SR=RD : RD=S1 : GOSUB700 : RD=Sfl : DJ<=D2?' : KX=81 : RETURN 

1400 C^=2 : SR=RD : RD=S 1 : D2£=D^ : DX=D 1 X ■ GOSUB600 : D^=D2Ji : GOSUB500 : RD=Sfl : RETURN 

1580 R$="as»iniir 

1510 B$»"»BDirJiir 

1515 REM MRRIGNRN 

1516 REM INSTRUCTIONS 
1520 PRINT'T]" 

1530 PRINT" TANKS" 

1540 PRINT : PRINT : PRINT : PRINT 
1550 PRINTA* 

1560 PRINT 

1570 PRINT" 6 : R DROITE" 

1580 PRINT" 4 = R GAUCHE" 

1590 PRINT" 5 = TIR LES ♦" 

1600 PRINT : PRINT : PRINT : PRINT 
1610 PRINTB$ 

1620 PRINT 

1630 PRINT" 8 : fl DROITE" 

1640 PRINT" 0 = R GAUCHE" 

1650 PRINT" 9 : TIR LES +" 

1660 PRINT ; PRINT : PRINT 

1670 PRINT"RPPUVER SUR UNE TOUCHE POUR COMMENCER" 

1680 GET Ct 

1690 IF C$="" THEN 1680 
1700 GOTO 5 


COMMENTAIRES : graphismes. 


Ligne 1 à 15 : Initialisations des 
variables. 

Ligne 20 à 55 : Analyse des touches 
enfonces. 

Ligne 60 à 155 : Affichage des 


Ligne 160 à 182 : Tests du clavier. 

Ligne 190 à 720 : Déplacements des chars 
à l'écran. 

Ligne 745 à 900 : Fin de la partie. 

Ligne 1500 à 1700 : Présentation du jeu. 


COMMODORE 64 



Réalisez les « strikes » et les « spares » 
de votre vie 

grâce à cette exceptionnelle simulation de bowling. 
Vous jouez sur dix manches, 
à un ou plusieurs joueurs. Pour lancer une boule, 
pressez une touche au bon moment. 
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1 REM COULEURS 


64 


AU 


TOURNOI 
•?» 


DE 

PS 


BOWLING ANNUEL" 


10=PRO ) " : I NPUT " CHUIX=" i X 


2 POKE53280..0 

3 P0KE53281, 0 

4 PR INT "il" 

10 REM BOWLING 

GOSUB1000 
F‘R I NT " niflWB I EN VENU 
INPUT"«COMBIEN DE JOUEURS 
IFPS<10RP9>INT (.PS > THEN40 

IFPS>4THENPRINT"DESOLE,LE MAXIMUM EST DE 4 !":GOTO40 
DI MM# PS >,R< PS >, S X < PS ,21) 

FORP=1TOPS : PRINT"SWJOUEUR #":P;" QUEL EST TON NOM ?" 

INPUT "<10 LETTRES MAXI>"JN*<P> 

N# < P > =LEFT$ < N# < P >, 10 > 

PRIAT "NIVEAU : 1-10 <l=NOVICE, 

IFX<1ORX>10THEN80 
R<P)=11-X : NEXT 
DiMP(i0),xa0>, va0> 

FORX=1TO10 ^ READX < X > , V < X >:NEXT 

DATAS1,12,33,11,33,13,35,10,35,12,35,14,37,S,37,11,37,13,37,15 
FORX=1TO10 : READT <X >:NEXT 
DATA2,5,8,11,15,19,23,27,31,35 
GOSUB1200 
F0RF=1T09 
F0RP=1T0P9 
GOSUB2000 
GOSUB3000 
GOSUB4000 

SX < P, 2*F-1 > =S : GOSIJB2000 
IFS=1RTHENGOSUB9000 : GOTO270 

GOSUB4000: SX <P,2*F)=S:GOSUB200W: IFS+SX< P,2*F-1 )=10THENGOSUB9100 : GOTO270 
FORX=1TO30Ô0^ NEXT 
NEXTP 
NEXTF 
F=10 

FORP=lTOPS 
GOSUB2Ù00 
GOSUB3000 
GOSUB4000 

SX<P,19>=S:GOSUB2000:IFS=10THENGOSUB9000:GOSUB3000 
GOSUB4000 

SX < p,20)=S : GOSUB20Ü0 
î FS+SX<P,19 K10THEN65O 
IFS+SX < P,19 >=10THENGOSUB9100 
IFS+SX < P,19 >=20THENO0SUBS000 
IFS+SX(P,1S)=10ORS=10THENGOSUB3000 
GOSUB4000■SX < P,21> =S 
T0=SX < P, 19 ) : T1 =SX <: P, 20 > 

IFR»10AND(TÛ+T1 = 10ORT0+T1=20 >THENGOSUB9000 
IFS+T1=10AHDT0=10THENGGSUB9100 
NEXTP 
GOSUB 5000 
GOSUB 6000 

PRINT"^VOULEZ VOUS REJOUER ???" 

GETA# : IFAf=""THEN810 
IF R$="0"THENRIJN 
IFA#<>"N"THEN800 
END 

REM AFFICHE TITRE 

PP I NT " TAB < 16 > " SBOWLING 64" : PR INT : PR I NT 

PRINTTAB <12);"MICRO-JEUX 1985" 

FORX=1TO2000 : NEXT:RETURN 
REM AFFICHE BOWLING 


20 
30 
40 
50 
55 
60 
70 
72 
75 
80 
84 
88 
90 
100 
110 
120 
130 
200 
210 
220 
230 
240 
250 
260 
262 
264 
266 
270 
280 
500 
510 
520 
530 
540 
550 
560 
570 
580 
582 
584 
590 
600 
602 
604 
606 
650 
700 
710 
800 
810 
828 
830 

999 

1000 
1010 
1020 
1050 
1200 
1220 
1230 
1232 
1235 
1240 


PR INT 
PRINT' 
PR INT 
PRINT' 
PRINT' 


: FCiRX= l T038 : PR I NT " ; : NEXT : PR I NT " 1" 

JOUEUR JEU I "TAB<39> " I" 



T "TAB<20>"I S C O R E="TAB<39>" 
T "TAB<20>" I V TAB < 39 ) “ I" 












1250 PR INT "71 "TAB<39>" I" 

1260 PRIHT"T - " ; : FORX= 1T038 : PRINT"; : NEXT PRINT"“I" 

1270 GOSUB1360 
1280 PRINT"T_"TflB<39)"J" 

1290 F0RX=1T09 : PRINT"71"TRB<39>" I" : NEXT 
1300 PR I NT " T" TflB < 39 ) "T 

1319 GOSUB1360 

1320 PR INT "TL"; : F0RX=1T038 : PRINT"_": NEXT : PR INT "J" 

1330 FORX= 1T02 : PR I NT " H " TflB < 39 > " I" : NEXT 

1340 PR I NT "TL":F0RX=lT038:pRINT"_"; : NEXT : PR INT "J" 

1350 RETURN 

1360 PR INT "H ////////////////.'PUBLIC/////////////// I" : RETURN 
2000 REM INITIALISATIONS JOUEURS 

2010 PRINT"S" :RRINT"»il IHHHIM ,, ;TABa5>; " ";TAB035)" 3" 

2015 PR I NT " »l"N* < P > ; TflB < 15 > : FTflB ( 35 > SX < P, 2*F-1 ) +SX ( P, F#2 ) 

2020 RETURN 

3000 REM INITIALISATIONS SCORES 
3010 FORX=1TO10 : P < X >=1 :NEXT 
3020 GOSUB3500:RETURN 
3500 REM EFFACEMENT 
3510 FORX=1TO10 

3520 PR I NT " 3"FORX1=1TOX<X) •'PRINT"M"; : NEXT 

3530 FORX1 = 1. TOV (X) : PRI NT " M": NEXT ; PR INT" " ; : IFP < X >= 1THENPRI NT " IM " 

3550 NEXTX 
3560 RETURN 

4000 REM AFFICHAGE BALLE 
4010 PR I NT " 3«lPMPW?M*r ; 

4020 GETR$: IFRfO""THEN4020 
4030 F0RVC=8T015 
4040 PR I HT " Oll" i 

4050 GOSIJE 4950 : IFR$0" "THEN4130 
4060 PRINT" IW"; 

407@ NEXTVC 

4080 FORVC=16T09STEP-1 

4090 PR INT "Oll" J 

4100 GOSUB4950 : IFRÏO" "THEN4130 

4ii0 print" irr; 

4120 NEXTVC:GOTO4030 

4130 IFR$="S"THENGOSUB6000:GOSIJE1200 -GOSUB2000■GOSUB3500 : GOTO4000 
4140 C='v'AL<Rî> : I FC>3ANBCC7THENC=0 '• G0T04160 
4150 IFC>6THEHC=-(C-6> 

4160 REM DEPLACEMENT DROIT 
4170 FORXC-1T026 
4180 PRINT" Oll"; 

4190 FÛRS= 1 TOI0*RP> : NEXT 
4200 :NEXT:XC=26 
4210 REM AVEC UNE COURBE 
4220 FORX1 = 1TOABS < C) 

4230 PRINT" OH";:XC=XC+l 

4240 REM 

4250 GOSUB4500 

4260 IFSW=1THENRETURN 

4270 NEXTX1 

4280 VC=VC+SGN<C> 

4290 ONSGN<C)■+2GOTO4300,4320,4310 
4300 PRINT" irtill" : GOTO4320 
4310 PRINT" IRlOll"; 

4320 GOSIIB4500 

4330 IFSW=1THENRETURN 

4340 GOTO4220 

4500 REM TOUCHE OU LOUPE 

4510 SU=@ : S=0 

4520 IFVC>7ANDVC<17THEN4550 
4525 PRINT" ",:SW=1 

4530 PRINT“3?W!M?l5M?M!l?Ii!l?M?ISl?MsIfl!>l BALLE PUBLIQUE !".: 

4540 FORX= 1TO3000 : NEXT : PR INT "■■■■■■■■■■■■■■■■■■■I " ; : SW=1 : RETURN 

4550 IFXCC38THEN4570 

4560 PRINT" " : SW= 1 : RETURN 

4570 FORPN=1TO10 •' IFP<PN)=0THEN4600 

4580 IFXCCX(PH)THENRETURN 

4590 IFVC=V(PN > ANDXC>=X <PN)THEN4620 

4600 NEXTPN 

4610 RETURN 

4620 REM TOUCHE 

4630 IFPN>1THEH4700 
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4640 IFRND<1 ».4ORC=0THEN4700 

4650 FORX=1TO10 '• S=S+P<X) :P<X>=0 : NEXT : SW=1 - PRINT" " ; ; GOSUB3500 : RETURN 

4700 S=1 : P<PN>=0 

4710 XP=X<PN) : VP=V<PN> 

4730 FORPX=PNTO10 

4740 IFRBS<VP-Y<PX>»ABS<XP-X<PX»#2 THEN4760 

4750 IFRND<1X.4+R<P)/30+ABS<C>/15THENS=S+P<PX>:P<PX)=0 

4760 NEXTPX : PRINT" 

4770 GOSUB3500 : PRINT 

4780 SW=1•FORX=1TO3000:NEXT:RETURN 

4950 FORX=1TO10#R < P >:NEXT 

4955 GETR* : IFR$=" "THENRETURN 

4960 IFR$="S”THENRETURN 

4965 IFR$>"0"ANBP*<="9"THENRETURN 

4970 R*="":RETURN 

5000 PRINT"n«WMW«^SlçW FIN DE LA PARTIE" 

5020 FORX=1TO3000:NEXT 
5040 RETURN 

6000 REM AFFICHE SCORES 

6010 PR INT "TJ-" ; : F0RX=1T038 : PRINT" - " ; : NEXT : PRINT" - !" 

6020 PRINT"H JOUEURS SCORE"TAB<39)" I" 

6025 PRINT 

6030 PRINT"!! 123456789 10"TAB<39>" !" 

6040 PRINT'TI "TAB<39)" n" 

6050 F0RL1=1T0P9 

6060 PRINT"! "N*<L1>;TAB<39>" I" 

6065 PRINT'TI "TAB<39)" I" : PR INT "Tl"; 

6200 SM=0 

6210 L2-F-1 

6220 IFL2=10THENL2=9 

6230 F0RL3=1T0L2 

6240 K=SX<L1,L3*2-1>+SK<Ll,L3*2> 

6250 SM=SM+K 
'6260 IFKC10THEN6350 
6270 IFSX<L1, L3*2-l K10THEN6340 
6280 SM=SM+SX< L1,L3*2+1> 

6290 IFSÜ<L1,L3*2+l)=10THEN6320 
6300 SM=SM+SX<11,L3*2+2) 

6310 GOTO6350 

6320 SM=SM+SX<Ll,L3*2+3) 

6330 GOTO6350 

6340 3M=SM+SX<L1,L3*2+1) 

6350 PRINTTAB<T<L3));STR$<SM>; 

6360 NEXTL3 

6400 IFF<10THEN6500 

6410 SM=SM+3X<L1,19>+SX(L1,20)+SX<Ll, 21) 

6420 PRINTTfiB<T<10));STRf<SM); 

6500 PRINT : PR INT‘TT : NEXTL1 

6510 PRINT"L"J : FORX=1T038 : PRINT"; ; NEXT : PRINT"J" 

6520 PRINT'TlSrrAPEZ SUR C ..." 

6530 GETR# - IFR$O"C"THEN6520 
6540 RETURN 
9000 REM STRIKE 

9010 PRINT"««^IWI^W»IiOTMfMi®IW^(W*l STRIKE !! JOLI!" 

9020 FORX=1TO3000 : NEXT : PRINT' IllllimillHIIIIHIHH 
9030 RETURN 
9100 REM SPARE 

9110 PRINT " SPARE!!-! PAS MAL! "J 

9120 FORX= 1TO3000 : NEXT : PRINT" 

9130 RETURN 


COMMENTAIRES : 

Ligne 1 à 4 : initialisation des 
couleurs 

Ligne 10 à 55 : choix du nombre des 
joueurs 

Ligne 60 : initialisation des variables 
Ligne 72 à 75 : entrée des noms des 
joueurs 

Ligne 80 : choix du niveau de jeu 
Ligne 99 à 710 : programme principal 
Ligne 800 4 990 : -fin d'une partie 
Ligne 1000 à 2000 : affichage du jeu à 
l'écran 

Ligne 2010 à 2020 : initialisation des 
joueurs 


Ligne 3000 

à 

3020 

■ 

scores 




Ligne 3500 

à 

3560 

1 

partie du décor 


Ligne 4000 

à 

4150 

■ 

boule 




Ligne 4160 

à 

4200 

t 

droite 




Ligne 4210 

à 

4340 

! 

courbe 




Ligne 4500 

à 

4610 

• 

■ 

Ligne 4630 

à 

4970 

■ 

a 

quilles 




Ligne 5000 

à 

6540 

: 

Ligne 9000 

à 

9030 

■ 

Ligne 9100 

à 

9130 

• 


initialisation des 

effacement d'une 

affichage de la 

dépiacement en ligne 

déplacement avec une 

tests de col 1isions 
vous avez touché les 

affichage du score 
affichage du strike 
affichage du spare » 
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MISSILE 

Un missile vous poursuit sans relâche. 
Evitez-le et sauvez la Terre 
d'une destruction assurée. 

Utilisez les touches du curseur pour modifier 
votre trajectoire. 


10 KEY OFF 
20 GOTO140 
30 D=< D+ 1 )i 

40 D=< D+7)AND7:GOT0230 
50 IFI<XANDJ>YTHENM=1 
60 IFI<XANDJ <YTHENM=3 
70 IFI>XANDJ <YTHENM=5 
80 IFI>XANDJ>YTHENM=7 
90 IFABS <I-X > < 4ANDJ >YTHENM=0 
100 IFI<XANDABS<J-Y)<4THENM=2 
110 IFABS<I-X)<2ANDJ<4THENM=4 
120 IFI>XANDABS<J-Y)<4THENM=6 
130 RETÜRN 

140 SCREEN2,0 :C0L0R15,1,4 :CLS 
150 ON SPRITE GOSUB570 
160 RESTORE400:FORW=OTG15:A*="":FORQ=OT07:READN:A*=A*+CHR*<N) 

170 PSET<RND<1)*255,RND<1)*191),RNDC1)*15:NEXTQ:SPRITE*<W)=A*:NEXTW 

180 X=100:Y=100 !I=RND<1)*248 :J=RND<1)*184 

190 RESTORE560 : FORQ=OT07 : READN ,W :<v>< Q)=N : H< Q)=W ;NEXTQ 

200 SPRITEON 

210 TI=TIME 

220 ONSTICK<0)GOT0230,230,30,230,230,230,40,230 
230 PUTSPRITE0,<X,Y),15,D+8 
240 GOSUB50 

250 IF 0<M1-M AND Ml-M<=4 THEN M1=M1-.25:1FMI<0 THENM1=7.75 

260 IF 4<M1-MTHEN M1=M1 + .25:1FM1=8 THENM1=0 

270 IF-4<M1-M AND M1-M<0 THEN M1=M1 + .25 :1 FM1=8THENM1=0 

280 IF Ml-M<=-4 THEN M1=M1-.25 :1 FMI<0THEN Ml=7.75 

290 PUTSPRITE1,<I,J),6,M 

300 X=X+H(D) :Y=Y+»J<D) : 1 = 1 + 1 .5*H<M1> :J=J+1 .5*U<M1) 

310 IFX<0THENX=0 
320 IFI<0THENI=0 
330 IFY >184THENY*184 
340 IFJ>184THENJ=184 
350 IFX>248THENX=248 
360 IFI>248THEN1=248 
370 IFY<0THENY=0 
380 IFJ < 0THENJ=0 
390 GOT0220 

400 DATA8,8,8,28,28,62,54,20 
410 DATAI,2,12,60,120,120,176,64 
420 DATA0.0,96,248,63,248,96,0 
430 DATA64,224,120,120,60,12,2,1 
440 DATA40,108,124,56,56,16,16,16 
450 DATA2,13,30,30,60,48,64,128 
460 DATA0,6,31,252,31,6,0,0 
470 DATAI28,64,48,60,30,30,13,2 
480 DATAI 6,16,56,40,186,254,238,170 
490 DATAI,38,110,244,56,94,44,8 
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r _._ 

500 DATA240,96,252,55,252,96,240,0 

510 DATA8,44,94,56,244,110,38,1 

520 DATA85,119,127,93,20,28,8,8 

530 DATAI 6,52,122,28,47,118,100,128 

540 DATAO,15,6,63,236,63,6,15 

550 DATAI 28,100,118,47,28,122,52,16 

560 DATA-3,0 , -2,2,0,3,2,2,3,0,2 , -2,0 , -3 , -2, -2 

570 SCREENO:TE=TIME-TI:C0L0R15,4,7:CLS:LOCATE10,10 :PRINT"PERDU":PRINT:PRINT 
580 PRINT"VOTRE TEMPS:";TE 
590 IF HI <TE THEN HI=*TE 

400 PRINT:PRINT:PRINT"MEILLEUR TEMPS:";HI 
610 PRINT:PRINT:PRINT" <SPACE> POUR REJOUER" 

620 IF INKEYSO" " THEN 620 :ELSE:RETURN140 


COMMENTAIRES : 

Ligne 30 à 40 : sous programme de 
rotation du vaisseau 

Ligne 50 à 130 : calcul de la position 
relative missile/vaisseau 
Ligne 140 à 210 : initialisation 
Ligne 220 : test des touches 
Ligne 230 : a-f-fichage du vaisseau 


Ligne 250 à 280 : orientation du missile 
Ligne 290 : a-f-fichage du missile 
Ligne 300 : déplacements 
Ligne 310 à 380 : tests de sorties écran 
Ligne 400 à 470 : sprites du missile 
Ligne 480 à 550 : sprites du vaisseau 
Ligne 560 : données de direction 
Ligne 570 à 620 : nouvelle partie 


- MSX - 

CASSE-BRIQUES 

Vous pensiez maîtriser toutes les subtilités 
du casse-briques? 

Essayez donc cette version ou les classiques raquettes 
ont été remplacées par deux flips... 

Utilisez les flèches pour les déplacer 
et la barre d'espacement pour les actionner. 



28 

38 

40 

50 

60 

70 

30 

90 

100 

110 

120 

130 

140 

150 


GOTO40 

H=SGN<H+.1>#CRNDC1>#8-4>=RETURN 
H=-SGN< H+.1>*<RNDC1>#8-4>*RETURN 
CT=1•BL=4 

DEF I NTV,H,X,Y,R,S * V=4 = H=1= 100 = Y= 100= R= 100 

SCREEN 3,0 = COL0R 15,1,7 = CLS 

RESTGRE330 = FORW=0TQ18 = FORQ=0T07 = RERDN = R$=fl$+CHRÏ< N > = NEXTQ = c 
P)$=" 11 : NEXTW 

LINE< 0,0 >-< 255,131 >, 6, B = LINE< 4, 131 >-<250, 191 >, 15 
LI NE< 4,20 >- < 250,30 >, 4, BF = LI NE< 4,40 >-< 250,50 >, 9, BF 
LINEC 4,60 >-< 250,70 >, 12, BF = LINEC 4,76 >-C 250,90 >, 10, BF 
PIJTSPRI TE 15, < 243,8 ), 7,15 = PUT SFR ITE16, S TEP< 0,8 >, 7,16 
PI ITSPRITE 17, STEP< 0,8 >, 7, 17 = PUTSPRITE 18, STEP< @, 8 >, 7,18 
IFpnINTC X+2 • Y+V >=15 THEN BL=BL~1 = X= 100 = Y= 100 = R= 100 '• IFBL-0THEN 
IF POINT<X+2+H,Y>=6 THEN H=-H 


SPRITE#CH >=fl$ 


600 
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160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 


IF POINTCX+2.■ Y+V)=6 THEN V=-V 

IF POINTC X+H, Y )= 10THENF'SET< X+H, Y ), 12 

IF POINTCX+2,Y+V )=10THENPSETCX,Y+V ), 

IF PO I NTC X.+2+H, Y )= 12THENPSETC X+H, Y >, 

IF POINTC X+2,Y+V)=12THENPSETCX,Y+V), 

IF POINTC X+2+H,Y )=9THENPSETCX+H,Y ),4 

IF POI NTC X+2, Y+V )=9THENPSETC X, Y+V ), 4 

IF POINTC X+2+H, Y )=4THENF‘SETC X+H,Y ) ,1 

IF POINTC X+2,Y+V>=4THENPSETCX,Y+V ),1 

GOSIJB 550 

X=X+H: Y*Y+V 

IF STRIGC 0)=-1THENF1 = 1 

ON STICKC0 >GOSUB290,290,350,290,290, 

PUT SF'R ITE0 , C X , Y >, 3 .• 0 

IF F 1=0 THEN PIJTSPR ITE1, CR, 175), 9, 1 : 

IF F 1 = 1 THEN PUTSPR1TE1,CR, 175 >,8,3 = 

IF R-3<X HND XCR+15 HND 175CY RND Y< 

IF FI=1 THEN F1=0 

GOTO140 

IFR >235THEN290ELSE R=R+4 = GOTO290 
I FR< 4THEN290EL.se R=R-4 = GOTO290 
IF F 1 = 1 THEN H=-H 


: GOSUB30 : SC=SC+1 
12 = V=-V•SC=SC+1= GOSUB20 
9 : GOSUB30 ; SC=SC+1 
9 •• V=-V = SC=SC+1 = GOSUB20 
=GO5UB30?SC=SC+1 
V=-V ; SC=SC+1 : GOSUB20 
GOSUB30=SC=SC+1 
V=-V = SC=SC+1=GOSUB20 


290,360,290 

PUT SPRITE2,STEPC 8,0 ), 9,2 
PUT SPRITE2,STEPC 8,0),8,4 
180 THENGOSUB370 


V=-V = RETURN 

DRTR 96,240,240,96,0,0,0,0 
DRTR0,0,0,62,254,254,224,0 
DRTR0,0,0,124,127,127,7,0 
DATA 12,30,60,120,240,192,192,0 
DATA 48,120,60,30,15,7,7,0 
DATA7,5,5,5,7,0,0,0 
DATR2,6,2,2,7,0,0,0 
DATA7,1,7,4,7,0,0,0 
DRTA7,1,3,1,7,0,0,0 
DATA4,4,4,7,2,0,0,0 
DATR7,4,7,1,7,0,0,0 
DRTR7,4,7,5,7,0,0, 0 
DATR7,1,1,2,2,0,0,0 
DRTA7,5, 7,5,7, 0,0,0 
DATR7,5,7,1,7,0,0,0 
DATA7 ■ 4,7,1,7,0,7,4,4,4,7,0,7,5,5,5,7,0,7,5,6,5,5,0, 7,4,6,4,7,0,0,0 
IF SC=CT#2108THENCT=CT+1 : GOTO50 
PIJTSPRITES, C 243, 40), 14, SC/1000MGD10+5 
PIJTSPRITE4 , STEPC 0,6 ), 14, SC/100NOD1 0+5 
PIJTSPRITE5, STEPC 0 , 6 ), 14 , C SC/1 0 )MOD 10+5 
PIJTSPR ITE6 , STEPC 0 , 6 ), 14 , SCNOD1 0+5 = RETURN 
SCREEN0 = CLS * LOCRTE10,10 : F‘R INT" PERDU" 

PP I NT = PR I NT : F'RI NT : PR I NT " BARRE D '' ESPRCE POUR REJOUER " 

IF INKEY$<>" "THEN620 
RUN 



COMMENTAIRES : 

Ligne 20 à 30 : sous programme de calcul 

du rebond de la balle 

Ligne 60 à 130 : initialisation des 

décors 

Ligne 140 : partie perdue 

Ligne 150 à 160 : rebond sur les murs 

rouges 

Ligne 170 à 240 : rebond sur les briques 
Ligne 260 à 340 : déplacement de la 


bal le et de la raquette 

Ligne 350 à 360 : teste si la raquette 

est hors de 1 •'écran 

Ligne 370 à 380 : rebond sur la raquette 
Ligne 390 à 430 : sprites de la balle et 
de la raquette 

Ligne 440 à 540 : sprites des chi-f-fres 
de 0 à 9 et du score 
Ligne 550 à 590 : a-f-fichage du score 
Ligne 600 : af-fichage de "perdu" et 
nouvel 1e partie 
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KOINS 


Des monstres vous traquent sans arrêt. 

Seule solution pour vous sortir de ce piège, 
les écraser 

après les avoir encerclés avec 
des blocs de glace. 

Utilisez les touches du curseur pour vous déplacer 
dans les quatre directions. 


10 dCREEN 2=DEFIHT X,Y,Q 
< O ! NEXT Q 

20 X=K-H1821 : FOR Q=0 TO 3 : YC Q )=ScH180F+32*9 : NEXT 


I,M,N,fl,B,V,W,S,Z,G,T•FOR Q=0 TO TIME/C TIME-9999 > : I =RND 


30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

288 

290 


340 

340 

348 


420 

420 


FOR 

FOR 

FOR 

FOR 

FOR 

FOR 

TO 


Q = S=40 = F-0 

Q=0 TO 8*7-1 : REflD N$ : VPOKE Q , VHL< " &H " +N$ > : NEXT Q 
Q=&H800 TO &:H7FF+8*? : REflD N* VPOKE Q, VflLC "&H"+N$ > '■ NEXT Q 
Q=&H1000 TO &HFFF+8*7 : REflD N*--VPOKE Q, VflLC "ScH"+H$>■ NEXT Q 


RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
FOR Q=&H1820 

FOR T Qs&H 1800 TO &H1300+32*23 STEP 32 = VPOKE Q,4=VPOKE Q+31,4 : NEXT 
FOR G! -DH 1800 TO &H 1800+31 * VPOKE G, 4 = VPOKE 0+32*23,4 = NEXT Q 
VPOKE X,1 ! TIME=8 


Q=&H2000 

Q=KH2300 

Q=&H3000 


TO 

TO 

TO 


&HlFFF+8*7 

&H27FF+8*7 

S,H2FFF+8*7 


REflD 

REflD 

REflD 


H* 

H$ 

NS 


ScH 17E0+32*24 • IF RNDC IX.2 THEN 


VPOKE 

VPOKE 

VPOKE 

VPOKE 


Q, VflLC "?:H"+N$> 
Q, VflLC "8(H"+NS> 
Q, VflLC "KH"+H$:.' 
0,2 ELSE VPOKE 


Q 


NEXT 

NEXT 

NEXT 

Q, 0 


VPOKE YC T >, 3 : IF VF'EEKC K >=3 THEN GOTO 610 
I«=INKEYS IF I $<>"" THEN Q=X =GOSUB 180=BEEP 
IF RNDC1>*999<S THEN T=RNDC1>*F : GOSUB 230=S=S+1 
GOTO 140 

THEN Z=1 ; GOTO 490 
THEN Z=-l : GOTO 490 
THEN Z=~32 : GOTO 490 
THEN Z=32 : GOTO 490 


IF 

IF 

IF 

IF 


I*=GHR*C28) 
I$=CHR$C 29> 
I$=CHR$C30> 
I$=CHRÏC 31> 


RETURN 

IF TIME>RNDC1>*6800 THEN GOTO 280 
IF VF'EEKC Y< T >+Z>= 1 THEN 610 
Z=CINTCRNDC1>*2>*31 + 1>*SGNC RNDC1>-.5 > 


IF VF'EEKC YC T >+Z >=0 
RETURN 

IF G=1 THEN 300 
IF INTC T >=INTCT/2 > 
)+32*SGNC X/32-YC T V32 > 
380 IF VPEEKC YC T >+M >=1 
310 IF VPEEKC YC T >+11 )=0 
0'GOTO 250 
320 G=1 : RETURN 


THEN VPOKE YC T >, 0 : YC T >=YC T >+Z : VPOKE YCT>,3 


THEN H=SGHCYC T >-X>+32*SGHC YC T J/32-X/32> ELSE M=SGNCX-YCT > 


THEN 

THEN 


610 

VPOKE 


YC T >,0 1 YC T >=YCT >+M•VPOKE YC T >,3 = RETURN ELSE G= 


REM-FORMES- 

DATA 0,0,O,0,0,0,0,0 
DATA 10,54,7C,10,38,28,44,44 
DATA FE,C6,AA,92,AA,06,FE,00 
DATA 10,70,D6,70,38,48,00,48 
DATA FF,FF,FF,FF,FF,FF,FF,FF 
DATA 18,24,42,99,99,42,24,18 
DATA 80,18,30,7E,7E,30,18,80 

REM- COULEURS - 

DATA Fl,Fl,Fl,Fl,Fl,Fl,Fl,Fl 
DATA 41,41,41,41,41,41,41,41 
DATA El,El,El,El,El,El,El,El 
DATA 61,61,61,61,61,61,61,61 
DATA Fl,Fl,Fl,Fl,Fl,Fl,Fl,Fl 
DATA AI, Al, Al, Al, Al, fil. Al, Fil 
DATA 61,61,61,61,61,61,61,61 
Q=Q+Z 

ON VPEEKC G >+l GOTO 520,560,548,558, Dr'U 
GOTO 490 

IF Q=X+Z THEN VPOKE X,0 : X=X+Z : VPOKE 
IF R< >0 THEN 590 
R=R+1 : GOTO 498 



X,1 »RETURN 
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530 IF VF'EEKC > ; .+Z >=3 THEN 610 

560 IFVPEEKCQ+1)=2AHDVPEEK(Q-1)=2AN0VPEEKC Q+32)=2ANDVPEEK(0-32)=2ANDVPEEK(Q+33)= 
2ANDVPEEKC 6-31 )=2ANDVPEEKC Q+31 >=2ANDVPEEKC6-33 )=2THENPLAY"V1503A06ABD" = FORI=0TO9 
9 : VFOKEQ, 5 = 0=0 ; VP0KE6,6 = NEXTI = VPOKEQ,2= VPOKEX/0 = X=X+ Z = VPQKEX, 1 = F-P+l = GOSUB600= T= 
P :GÜTÜ600 
570 RETURN 

596 PLAY" V15L6403D05D" = VPÜKE X, 0 = X=X+Z = VPOKE X# 1 = VF'OKE 6, 2 : R=0 : RETURN 

600 IF VPEEKCRND(1)*768+fcH1800)=0 THEN Y(T)=&H1800+RND(0)*768 : RETURN ELSE GOTO 6 

£i@ 

610 F'LflY"V15L64Ü1AD02BE03CF04DGÜ5EAÛ6FB07GC" : VPOKE X,5=F0R 0=0 TO 999=NEXT 6=SCR 
EEN 0 :LOCflTE 13,9 = PRINT"NIVEAU ="; P = LOCflTE 12,15 = PRINT"TIME ="; INT<TIME/3000 ? i"n 
n"; INT(60*(TIME/3000-INTCTIME/3000)>); "s" =FOR 0=0 TO 5555 : HEKT 6 
620 IF INKEYSC >"" THEN RUN ELSE GOTO 620 


Ligne 230 à 320 : sous programme de 
déplacement pour les monstes 
Ligne 330 à 480 : données pour les 
redéfinitions de caractères 
Ligne 490 à 580 ! sous programme de 
déplacement des briques 
Ligne 590 à 420 i fin de tableau - 
affichage du temps 


COMMENTAIRES : 

Ligne 10 à 80 : initialisation et 
définition des caractères 
Ligne 90 à 130 : mise en place du décoi 
Ligne 140 à 170 I boucle principale 
Ligne 180 à 220 : sous programme de 
déplacement de l'homme 


— MSX - 

RAID 


Votre avion vous attend, prêt à décoller. 

Bouclez votre ceinture 
et... à vous les sensations fortes! 

Salomez entre les obstacles 
qui encombrent le ciel 

ou, plus simple encore, détruisez-les. Les flèches servent à 

vous déplacer, 

la barre d'espacement, à tirer. 


100 REM = 


110 DATA 3E ■ 0, CD, D5,00,7B, 32,-51,03,3A, 50, C3,21,01, 1B, CD, 4D, 00,21, 15, 1B, CD, 4D, 00, 
6,10,80,21,05,1B,CD,4D,00,21,19,IB,CD,4D,00,21,0D,IB,CD,4D,00,21,21,IB,CD,4D,00, 
3A,50,03,21,09,IB,CD,4D,00,21,1D,IB,CD,4D,00,C9 

120 RESTÜRE 110 = FOR D=1 TÜ 67 = READ CS=POKE 32773 !+D,VALC"&H"+CS ) = NEXT D = DEFUSR=3 
2773! 

130 SOUND 7,2 = SOUND 9,4 = SCREEH1,2,0 = KEYOFF = CQLOR15,1,1 

140 SOUND 6,63 = DF=2 = TD=2 

150 REM***DEFINITION DE L'AVION**** 

160 CLEAR 10000 = DATA 0,0,0,0,30,49,49,49,FF,30,8C,88,8D,45,2D,11,79,26,12,A,CA,2 
A,2A,2A,FA,2,4,14,94,14,14,94 

170 RESTORE 160=flG$=.FOR D=1 TO 32 = READ CS = HG$=AGS+CHRSC VALC"&H"+CS ) ) = NEXT D 

180 DATA 9E,64,48,50,53,54,54,54,5F,40,20,28,29,28,28,29,00,00,00,00,0C,92,92,92 


,FF,1,31,21,fil,32,84,88 

190 RESTORE ISO = AD$=" " = FOR D=1 TO 32 = READ CS = AD$=ADS+CHR$L VALC "&H"+CS > "} ■ NEXT D 
200 DATA 0C,02,01,00,00,00,00,00,00,00,00,00,00,00,00,00,14,14,94,44,22,11,3,8,8 


210 RESTORE 200 = DG$=" " = FOR D=1 TO 32 = READ CS = DGS=DG$+CHRS< VAL< "6<H"+C$ ) > = NEXT D 
220 DATA 29,28,29,22,44,88,10,10,10,10,50,D0,90,20,40,80,B0,40,80,00,00,00,00,0, 


0 , 0 , 0 , 0 , 0 , 0 , 0,0 

230 RESTORE 220 = DD$=" " = FOR D=1 TO 32 = READ C$ = DDS=DDS+CHR$< VALC "S«H"+CS > > = NEXT D 
240 SPRITESC 0 >=AG$ = SPRITESC1>=AD$ 

250 SPRITESC 2 >=DG$ = SPRITESC 3 >=DDS 
260 PUTSPRITE 0,<80,10),1,0 
270 PUTSPRITE 5,C 80,10 ),,5 
280 PUTSPRITE 1,(96,10),1,1 
290 PUTSPRITE 6,(96,10),,6 
300 PUTSPRITE 2,(30,26),1,2 
310 PUTSPRITE 7,(80,26),,7 
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w, _ 

(320 PUTSPRITE 3,<96,£6>,1,3 
| 330 PUTSPRITE 8,<96,26 >, ,8 : HY=84 : NV=2 = CLS 

340 DATA FF, FF, FF, FF, FF, FF, FF, FF, 86, 7E, 7E, 7E .• 7E, 7E, 7E, 00, 00,00,30,30, 30, 30, 00.■ 00 
,00,00 

350 RESTORE 340 : FOR 0=1 TO 4 ; FOR T=1 TO 8 : READ 0* : BS< D)=BS<0)+GHR*< VALX "&H"+CS >> 
MEXT T=NEXT 0 

360 DATA 00 ,00 ,00 ,00 ,00 ,30 , 30,30 , 00,7F,?F,7F , 7F,3F,1F,0F,00,19,00,05,05,05,05,05 
,05, FO, FB,EB,EB,EB,EB,EB • 

370 RESTORE 360=FD$="" : FOR 0=1 TO 32•READ 0* : FD$=FD$+CHR«VAL<"&H"+C$ ) > ! NEXT D = S 
PRITES 5 >=FD$ 

380 DATA 00,98,B0,A0,A0,A5,A5,A5,A0,AF,DF, 07 , 07 , 07 , 07 , 07 ,00,00,00,00,00,00,00,00 
,00,FE,FE,FE,FE,FC,F8,F0 

390 RESTORE 380 ; FGS=" " : FOR 0=1 TO 32 : READ 0$ = FG$=FG$+CHR$<; VAL< "£<H"+C$ > > : NEXT 0 = 8 
pRITE$<6>=FGS 

400 DATA 03,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,FF,FF,FF,3F,IF,0F,0F,0F 
,0F,0F,0F,OF,0F,03,01,00 

410 RESTORE 400 «FA*=""« FOR 0=1 TO 32 = READ CS = FAS=FA$+CHR$< VAL< "8cH''+CS >>.= NEXT D = S 
PRITE*<7>=FA$ 

420 DATA FF,FF, FF,FC,F8,F@,E0,E0,E0,E0,E0,E0,E0,00,80,00,F0,CO,00,00,00,00,00,00 
>00,00,00,00,00,00,00,00 

430 RESTORE 420 FE$= " " = FOR 0= 1 TO 32 = READ CS '• FES=FES+OHR$< VAU " &H " +0$ > > = NEXT 0 = S 
PRITES 1 : 8 :.'=FE$ 

440 REM***DEFÎHITIÜN OU PAYSAGE***** 

450 DATA 51,00,E5,E0,EA,04,AA,85,30,7E,03,81,A5,BD,5A,0,0,18,66,0,0,30,00,0 
460 RESTORE 450 FOR AS=96 TO 112 STEP 8 = FOR 0=0 TO 7 : READ CS=VPOKE AS*8+0, VAU "& 
H"+CS> : NEXT 0 ! NEXT AS 
470 VF'QiKE 8205,1*16+3 
480 VF'OKE 8204, 15 
490 'v'POKE 8206,15*16+4 
500 VF'OKE 821903*16+3 
510 VPOKE 8193,8*16+3 = 0F=10 :TD=0 
520 FOR 0=0 TO 7 : VPOKE 336+0,255 
530 VPOKE 968+0,255 : NEXT 0 
540 VPOKE 8207,16+14 
550 VPOKE 8197,8*16+8 : GOTO 720 
560 REM***DEMQ**** 

570 TD=TD+1 : IF TOCDFTHEN RETURH 830 
580 TD=0 = EAU= I HT 1 ! RNCK 1 >*50 >+1 
590 IF EAU=1 THEH GOSUB 640 

600 pr i ht " < ■: < < {■: {< < i < {< < {< < < {•: < < < < < < " 

610 LOOFITE RNOC 1 >*25,22 : PR I HT " - " 

620 LOCATE RNDC1>*25,22 : PRINT"h" 

630 TZ=TZ+U IF T2=100 THEH PRIHT"PPP P P P P P SCOREP P P P"; SC;"P P P P P P" : TZ=0=RETURN ELSE 
RETURH 

640 REM***R l'v' I ERE*** 

650 PRI HT"P P P < iiii <\<P P P P P P P P ii i {<<\" 

660 F'R1 NT "PP P P P P P P F' P P P P P F' F' P P P P P P { < < { " 

670 PR 1 HT " P P P P P P P F-F' P P P F' P F' P F' P P P P P P P i < " 

680 PR IH T " { < { P P P P F' P P P P < i < { < P P P P P P P " 

690 F'R I HT " < {{{P P P P P ( i •■'. { < •( < -i < i < P P P P " 

700 PR 1 HT " < {< < < < < P P < { {I < i 1 < i < IP P P " 

710 RETURH 

720 R E H * * * 0 E 0 0 L L A G E * * * * 

730 DF=50 = T F-8: SOUND 9,6 = SOUND 7,0 = SOUND 3,0 1=255 = L=31 GOT0 750 
740 K=K-.5 = L=L-.1=SOUND 2,K : SOUND 6,L = RETURH 

750 FRI HT "y y AV ION EH RESERVE_ "NV, "y y " = FOR 0=1 TO 12 = FOR T=1 TO 5 

760 TR=TR+11F TR‘..DF THEN 76.0 ELSE PRIHT"yyyyyyyyyy yyyyyyyyy yyyyyy y " TR=0 = DF=DF + 

(DF >0> = GOSUB 740 
770 NEXT T■ 

780 FOR T=1 TO 10 

790 IR=TR+1 = IF TR<OF THEH 790 ELSE F'RINT"yyyyyyyyyyy**yyyyyyyyyyyyy" TR=0 OF=OF+ 
(OF,.0>- GOSUB 740 

800 NEXT T NEXT 0 = SOUND 7,2 = SOUND 6,40 GOTO 810 
810 REM***** 

S2Û SOUND 9.6 SOUND 6,42 GOSUB 560 

830 Fl,l=FU-l IF FU=0 THEH STOP ELSE B=USR'- 1 = R=PEEK'.. 500Û1 > Y='-. A=i4 >-■ A=7 > *8 HY 
=HY+'f'GOSUB 980 F'OKE 50000! HY = GOSUB 870-GOSUB 1030 
840 IF STRIG< 0 >=0 THEN 820 
850 1F TR=1 THEH 320 
860 F'A= 1 TY=HY+12 = TX=38 = TR=1 = GOTO 820 

870 IF TF:=0 THEH RETURH _ 
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880 PFI=FR+1: IF Pfl=5 THEN 910 

890 TX=TX+2 : SPRITE3K4>=B$<Pft>=PUTSPRITE 4.<TY>TX8.4 
900 RETURN 
910 REM*** 

92W PL=VPEEKX6144+< INK TX/8 >*32>+INT< TY/8 > > 

930 IP PL=219 THEN H=15-GQTÜ 950 

940 IF F'L=96 IHEN FOR D=lb IG 0 STEP -1 ! SOUND 9,-DNEXT D : M=219= SC=3C+5 

950 PR=8=8PRITE5K4>=R*=TR=0 

960 VPGKE« 6144+< I NK TX^8 >*32 >+1 NT< TYV'8 > >, M 

970 DF=DF+(DF>0 > : RE1URN 

980 REM 

990 IF HYC28 THEN HY==28 
1000 IF HY>204 THEN HY=2Û4 
1010 RETURN 

1020 IF PL=219 THEN VPOKE <6144+C INKTX/8>*32>+INT<TY/8>>,M■■ GOTO 820 
1030 REM 

1040 PL-vF'EEKC 6304+1 NT<HY/8 >+2 > 

1050 IF PL=96 THEN SOUND 6,63 = FOR D=15 TO 0 STEP -.05 = SOUND 9,D = NEXT D = NV-HV+CNV 
>0 > 1F NV--0 T HEN SCREEN1,2 PRINT = PRINI = PR INT = PR INT = PRINTTREX 10 >> "GflME OVER" = PRINT 
PR I NT = PR 1 NT PR INT TBBt 4 >"SCORE--" ; SC = FOR D= 1 TO 1000 = NEXT D = GOTO 11U 
1060 RETURN 


COMMENTAIRES : 

Ligne 100 à 120 : mise en mémoire du 

langage machine 

Ligne 130 à 140 : bruit de 

l'avion-initialisation écran 

Ligne 150 à 430 : dé-finition et 

a-f-fichage de l'avion 

Ligne 440 à 550 : dé-finition des 

paysages et des couleurs 

Ligne 560 à 630 : a-f-fichage d'une 

rivière ou non 


Ligne 640 à 710 : si oui, le -faire 

Ligne 750 : modi-fier les variables pour 

changer le temps de décollage 

Ligne 840 : à T on tire 

Ligne 890 : si oui alros l'obus descend 

Ligne 920 à 970 : obus touche un bloc ? 

Si oui, e-f-facement et score 

Ligne 990 à 1010 : l'avion ne doit pas 

sortir de 1'écran 

Ligne 1020 à 1060 : si l'avion touche, 
alors un de moins 


- MSX - 

DESTROY 


Le sort de la base est entre vos mains. 

Si un missile parvient à franchir vos tirs de barrage, 

tout est perdu. 

Combinez l'action des touches du curseur pour vous déplacer 

dans huit directions. 


10 KEYOFF 

20 SCREEN3,0 :COLOR15,1,7 :CLS 
30 DEFINTX,Y,0,H,J,I 

40 LINE(251,0)-<255,191>,12,B :LINE<236,0>-<247,191),6,BF 

50 RESTORE:FORW=0TOl:A*=“":FORQ=OT07:READN:A*=A*+CHR*(N>:NEXTQ 

60 SPRITES(W >=AS:NEXTW:X=100:Y=100: 1=0 :J=RND<1>*183 

70 ONSPRITE G0SUB310 

80 PUTSPRITEO,<I,J>,15,0 

90 IF POINT<I+3,J+5) = 12THEN GOT0330 

100 IF POINT(I+3,J+5)=6THEN PSET<I+3,J+5>,1 : 1=0 

110 1=1+2+RND(1>*4:J=J+RND<1>*8-4 

120 SPRITE ON 

130 C=0:H=0 

140 ONSTICK(0 > GOSUB230,240,250,260,270,280,290,300 
150 PUTSPRITE1 ,<X,Y> ,7,1 :X=X+H:Y=Y+C> 

160 IFY>183 THEN Y=183 
170 IFJ>183 THEN J=183 
180 IFJ<0 THEN J=0 
190 IFY<0 THEN Y=0 
200 GOTO 80 


U 
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210 DATA 0,0,0,204,115,204,0,0 
220 DATA 16,16,16,238,16,16,16,0 
230 U=-4:H=0:RETURN 
240 U=-3:H=3:RETURN 
250 U=0:H=4:RETURN 
260 V=3 :H=3:RETURN 
270 U=4:H=0:RETURN 
280 U=3:H=-3:RETURN 
290 U=0:H=-4:RETURN 
300 U=-3:H=-3:RETURN 
310 LINE(0,191)-<X,Y),2:LINE<0,191)-<X,Y),1 : 1=0 :J=RND<1>*183 
320 PUTSPRITEO,<I,J>,15,0 :SC=SC+1 :RETURN 
330 SCREENO:C0L0R15,4,7 
340 LOCATE10,10:PRINT"PERDU" 

350 PRINT : PRINT : PRINT"VOTRE SCORE:";SC 
360 IFHI<SC THEN HI=SC 

370 PRINT:PRINT:PRINT"MEILLEUR SCORE:";HI 
380 PRINT:PRINT:PRINT" <SPACE> POUR REJOUER" 

390 IF INKEYSO" “ THEN390 ELSE20 



COMMENTAI RES : 

Ligne 10 à 70 : initialisation du jeu 
Ligne 80 à 120 : déplacement du missile 
Ligne 130 à 150 : déplacement du viseur 
Ligne 160 à 190 : tests de sortie de 


1'écran 

Ligne 230 à 300 : sous programme de 
déplacement du viseur 

Ligne 310 à 320 : destruction du missile 
Ligne 330 à 390 : routines de score, 
hi-score et -fin de partie 


- MSX -- 

LE PETIT PEINTRE 


Repeignez une pièce entière 
sans vous faire attraper par les monstres 
furieux de voir 
leur tranquillité troublée. 

Déplacez-vous avec maestria grâce aux touches fléchées 

du clavier. 


10 KEY OFF 

20 DEFINTX,Y,H,U,M,S 
30 X=32:Y=32:H=4:U=0:S=2 

40 FORM=0TOl:X(M)=224 : H < M)=4 :U < M)=0 :NEXTM:NM=1 :Y<0>=32 :Y<1> = 172 
50 SCREEN3,0 :COLOR15,1,7:CLS 

60 RESTORE230:FORU=OT04:A*="":FORQ=lTO 8 :READN:AS=AS+CHRS(N>:NEXTQ 
70 SPRI TES ( Ul > =A$ : NEXTUI 

80 FOR Q=0 T08 :LINE<0*24+32,32>-<Q*24+32,168),15:NEXTQ 

90 FORQ=0TO7:LINE< 32,32+20*Q)-< 224,32+20*Q),15:NEXTQ 

100 IF POINT<X+H,Y+U)=15THENX=X+H:Y=Y+U:PSET<X,Y),12:SC=SC+1 

110 IF P0INT<X+H,Y+U)=12THENX=X+H:Y=Y+U 

120 FORM=0TOl 

130 IFPOINT<X<M>+H<M>,Y<M)+U<M>>=15 THEN X<M)=X<M)+H(M>:Y<M)=Y(M)+U(M) 
140 IF POINT<X<M) + H(M),Y<M)+U< M )) = 12 THEN X<M)=XCM>+H<M>:Y<M>=Y<M>+U<M> 
150 PUTSPRITEM+2,<X(M)-2,Y<M)-3),8,0 

160 IF(Y<M)-32)MOD20+ <X(M)-32)MOD24=0 THEN GOSUB360 
170 IFX<M)=X AND Y(M)=Y THEN 410 
180 NEXTM 

190 PUTSPRITEO,(X-2,Y-3),5,S 

200 ONSTICK(0)GOSUB280,290,300,290,320,290,340,290 
210 IF SC=644 THEN470 
220 GOTO100 
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t 


230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


DATA24.36,126,235,126,60,36,10 2 
DATA 254,255,1,14,16,16.16,16 
DATA 3,3,3,243,11,11,11,6 
DATAS,8,8.8,112,128,255,127 
DATA96,208.208,208,207,192,192,192 
IF POINT(X,Y-4> <>1 THEN S=1:C=-4:H=0 
RETURN 

IF POINT<X+4,Y)<>1 
RETURN 

IF POINT< X,Y+ 4)<>1 
RETURN 

IF POINT<X-4,Y><>1 THEN S=4:V=0:H=-4 
RETURN 

I F X=X(M)THENH<M> 

IF Y=Y<M)THENV<M) 

V<M>=0:H<M>=0 

I FRND< 1 ) > . 5THENU(M)=SGN< RND< 1 ) - . 5) *4 
IF H(M)=0 AND U(M>=0 THEN390 ELSE 


THEN S=2:U=0:H=4 


THEN S=3:U=4:H=0 



0:^<M)=4*SGN<Y-Y<M>):RETURN 
0 -H<M)=4*SGN<X-X<M>>:RETURN 


ELSE H<M)=4*SGN< RND(1> —.5) 
RETURN 

SCREENO:COLOR15,4,7:CLS:HSC=HSC+SC:LOCATE10,10 :PRINT"PERDU" 


PRINT : PRINT : PRINT :PRINT"UOTRE SCORE:";HSC 
IFHI<HSC THEN HI=HSC 

PRINT:PRINT:PRINT"MEILLEUR SCORE:";HI 
PRINT:PRINT: PRINT" <SPACE> POUR REJOUER" 

IF INKEYSO" " THEN 460 ELSE HSC=0:SC=0:GOTO30 
HSC=HSC+ SC :GOT030 


COMMENTAIRES : 

Ligne 20 : dé-finition des variables 
Ligne 30 à 4à : initialisation des 
variables 

Ligne 50 à 90 : initialisation des 
décors et des sprites 

Ligne 100 à 110 : déplacement du rouleau 
Ligne 120 à 180 : déplacement des 
monstres 


Ligne 190 : a-f-fichage du rouleau 

Ligne 200 : test clavier 

Ligne 210 : tableau terminé ? 

Ligne 230 à 270 i dé-finition des sprites 

Ligne 280 à 350 : orientation du rouleau 

Ligne 360 à 400 : orientation 

semi-aléatoire des monstres 
Ligne 410 à 460 : nouvelle partie 
Ligne 470 : nouveau tableau 

MSX - 


PUZZLE 

Reconstituez un puzzle - 

composé de chiffres. L'ordinateur est tolérant : 
il vous laisse recommencer 
autant de fois que vous le désirez. 

Les flèches 

servent à vous déplacer, faites-en bon usage... 


0 GOTO 1000 
2 ' 

3 ' *********************** 

4 ' * * 

5 ' T TRC-TfiC SUR MSX * 

Ç f 

7 •• % PAR E.VON flSCHEBERG * 


8 -• * * 

59 IF K2 THEN 1=1 + 1 = RETURN ELSE IF J<2 THEN 1=0 = J=.J+1 = RETURN ELSE 1=0 : J=0 : RETUR 
H 

110 {f°I= 5 K RND F>0 THEN SWRP L<E,F>,L<E,F-l ) = LOCflTE 13+E*4,8+F*4 = PRINT L(E,F> = L0 
GATE 14+E*4,8+<F-U*4 = F=F-1 : PRINT » “=GOTO 200 _ 

120 IF 1=8 AND E>0 THEN SMAP L( E, F ),L< E-l, F > : LOCATE 1S+EY4,8+F4I4 PRINT L'-E.-F^LO 
GATE 14+Œ-l )*4..8+F*4 = E=E-1 = PRINT " " = GOTO 200 

130 IF 1 = 1 AND F<2 THEN SWRP LŒ, F ), Lv E, F+l > = LOCATE 13+E*4,8+F*4 = PRINT L 1 ' E.■ F= LU 
GATE 14+E:*4..3+<F+1 >*4 =F=F+1= PRINT " " '’TO 20O 
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140 IF 1=7 HND E<2 THEN SWflP LCE,F),LCE+l,F>=LOCflTE 
GfiTE 1 4+Œ+ 1 >*4,8+F*4 : E=E+ 1 = PR I NT " " : GOTO 200 


13+E*4,8+F*4• PR I NT LC E, F > : LO 


190 

RETURN 




200 

FOR 1=1 TÜ 300 




210 

NEXT I 




220 

RETURN 




800 

KEY0FF^ SCREEN O •• i 

CÜLÜR. 

7, 1 


810 

DIM LC 3,3):DEFINT i- L 



815 

FOR K=1 TÜ 8 




820 

I = INTCRNDC-TIME )*3 ) 



825 

J=IHTC RNDC-TIME )*3) 



830 

IF LC I .• JX>0 THEN GÜSUB 

50 

835 

NEXT K 




840 

CLS : LOCRTE 12,' 

S 



845 

PRINT 




850 

PRINT THBC12) "I 

I 

I 

I 

855 

PRINT TflBC12) "I 

I 

I 

I 

857 

PRINT TflBC 12) "I 

I 

I 

I 

860 

PRINT TflBC 12) "I 

- 1— 

-l — 

— I 

865 

PRINT TflBC12) "I 

I 

I 

I 

870 

PRINT TflBC12) "I 

I 

I 

I 

872 

PRINT TflBC12) "I 

I 

I 

I 

875 

PRINT TflBC12) "I 

-1 — 

-I — 

— I 

880 

PRINT TflBC12) "I 

I 

I 

I 

885 

PRINT TflBC12) "I 

I 

I 

I 

887 

PRINT TflBC12) "I 

I 

I 

I 

890 

PRINT TflBC12) 




895 

FÜR 1=0 TÜ 2 




900 

FOR J=0 TÜ 2 




910 

LOCflTE 13+1*4,8+3*4 


920 

IF LC I, J X >0 

THEN 

PRINT 

930 

NEXT J 




940 

NEXT I 




950 

RETURN 





GOTO 830 ELSE LC I,J )=K 



LC I, J ) ELSE E=I=F=J 


1010 

1020 


GÜSUB 

GOTO 


100 : 

1010 


TEST D'UNE TOUCHE 


COMMENTAIRES : 

Ligne 0 à 9 : remarques sur le jeu 
Ligne 50 : sous-routine de modification 
des indices 

Ligne 100 : test des -fléchés 

Ligne 110 à 190 : modification de la 


grille 

Ligne 200 à 220 : temporisation pour 
éviter une répétition 
Ligne 800 à 835 : création de la grille 
Ligne 840 à 950 : affichage de la grille 
Ligne 1000 à 1020 : boucle principale 


- MSX - 

SKRAMBLE 


Aventurez-vous dans la grotte aux mille diamants... 
et revenez riche ou mort! 

Vous gagnez 10 points par joyau^ récupéré 
mais en perdez 20 si votre vaisseau 
heurte un des murs de la grotte. Or ces derniers ont une 
curieuse manie : ils se resserrent 
dès qu'ils ont détecté une présence. Faites vite- 
grâce à votre joystick ou aux touches d'édition. 



18 'SKRAMBLE sur MSX 

20 ■'CC COPYRIGHT 1985 PAR FRANCOIS-RE 

GIS CHHUMHRTIN ET TILT 

30 SCREEN 1- = KEY OFF ; COLÜR 1,4,4 

40 LQCflTE 5,5 ; PRINT "SKRAMBLE" 

50 PRINT:PRINT 

60 PRINT “Joyau recuPere-+19 Pts" 

I PRINT "Joaau oublie.0 Pts" 


80 PRINT "collision.-20 Pts" 

90 IF INKEYS="" THEN 90 

100 COLOR 6,4,4:SCREEN 2,0 

110 LINE C0,0>-(255,0), 10 

120 LINE <0,15>-(255,15),10 

130 LINE (0,1>-(255,14),1,BF 

140 OPEN "GRF- ; " FOR OUTPUT HS #1 

150 X=16 : Y=4 ; flï="SKRAMBLE <01985 TILT SCGRE= S 






























160 FOR 1=1 TO LEN<RS> 

170 DRAW "BM"+STR*<X>+", "+STRS<Y> 

180 PRINT #1.MID$<FIS, 1,1 ) 

190 X=X+7 • NEXT I: CLOSE #1 

200 ON SPRITE GOSUB 610 ; SPRITE ON 

210 ÛPEN "GRP ! " FOR OUTPUT AS #1 

220 flS=""'FOR 1=0 TO 7‘REflD Fl 

230 AS=Ri6+CHR*<A) = NEXT I 

240 SPRITE$< 0)=A$ 

250 DATA 192.160,144,142,137,255,66,60 
260 R$="";FOR 1=0 TO 7 : READ A 
270 AS=AS+CHRS(A > : NEXT I 
280 SPRITE$<1>=AS 

290 DATA 24,60,102,195,195,102,60,24 
300 DEFFNR< X >= INT< RND< -TIME )*X )+1 
310 DIM Y<16),C<16> 

320 SC=0 ■' DV=48 
330 LINE <0,32>-<255,32), 10 
340 LINE <0,191>-<255,191),10 
350 LINE <0,33)-<255,190>,1,BF 
360 FOR 1=0 TO 16 ' ' 

370 PUT SPRITE I,<0,209)-NEXT I 
380 AY=FNR<20 )+100 Y< 0 )=AY 
390 LINE < 0, AY >-< 15, AY ), 10 
400 LINE <0,AY-DY)-<15,AY-DY),10 
410 Y< 0 )=AY 

420 FOR X=16 TO 255 STEP 16 
430 Y=RY+FNR<40)-20 


440 IF Y>188 THEN Y=378-Y 
450 IF Y-DY<34 THEN Y=DY+34 
460 LINE < X, AY )-< X+7,Y),10 
470 LINE < X+8, Y )-< X+15, Y ), 10 
480 LINE <X,AY-DY)-<X+7,Y-DY),10 
490 LINE <X+8,Y-DY)-<X+15,Y-DY),10 
500 Y< X/16 >=Y : AY=Y 

510 IF FNR<100)>50 THEN C<X/16)=FNR<13)+ 

2 : PUT SPRITE X/16,<X+8,Y-8),C<X/16>,1 

520 NEXT X ; Y<16)=191 

530 YV=Y<0 )-DY/2 

540 FOR XV=-8 TO 255 STEP 2 

550 S=STICK<0) 

560 YV-YV+< < S=1 )-< S=5 ) )*2 

570 IF YV<Y<XV/' 16)-DY THEN SC=SC-20■YV=Y 

V+8-GOSUB 650 

580 IF YV>Y<XV/16)-8 THEN SC=SC-20 = YV=YV 
-8■GOSUB 650 

590 PUT SPRITE 0,<XV,YV> 

608-NEXT XV 1 DY=DY-1 ! GOTO 350 
610 SPRITE OFF■SC=SC+10 
620 PUT SPRITE XV/16,<0,209) 

630 PUT SPRITE 0,<XV,YV),C<XV/16) 

640 GOSUB 650 SPRITE ON : RETURN 
650 LINE <211,4>-<246,12),1,BF 
660 DRAW "BM211,4" 

670 IF SC<0 THEN PRINT #1,8'PLAY"L64T255 
BAGFEDC" ^ AS= I NPUTS< 5 ) ■■ RUN 200 
680 PRINT #1,SC : BEEP : RETURN 


COMMENTAIRES s 

Ligne 10 à 170 : Initialisation des 
graphismes et présentation. 

Ligne 180 à 270 : Initialisation des 
sprites : SPRITES(O) = le vaisseau 
SPRITE*<1> = un joyau. 

Ligne 280 à 300 : Initialisation des 
variables. 


Ligne 310 
caverne. 
Ligne 520 
vaisseau. 
Ligne 590 
sprites. 
Ligne 630 
test pour 


à 510 


à 580 


à 620 


Affichage de la 
Déplacements du 
Tests de col 1 i si on des 


à 660 : A-f-fichage du score et 


savoir s x i1 est inférieur à 


zéro, dans ce cas fin de la partie. 


- MSX - 

CŒUR BRISE 


Fendrez-vous le cœur de votre ordinateur ? 

Déplacez une flèche 
avec habileté et réussissez cet exploit 
peu commun. 

Deux touches du curseur vous permettent d'aller 
à droite et à gauche et une troisième sert à vous 
_ immobiliser. _. 

10 SCREEN2,0 :COLOR15,1, 7 :CLS 

20 LINE< 0,1 70)-( 256.192),12,BF: CIRCLE<128,169),70,10,0,3.14 
30 LINE<53,169>-<198,169),10:PAINT<128,168),10,10 
40 RESTORE :FORW=OT03:A*="":FORQ=OT07:READN:A*=A*+CHR*(N>:NEXTQ 
50 SPRITE*(W>=A*:NEXTW 
60 ON SPRITE GOSUB260 

70 SPRITEON:FORY=0TOl84STEPRND<1>*3+3 
80 FORX=OT0256 STEP3+Y/30:PUTSPRITE0,(X,Y),6,0 

90 IF F THEN I = I+ H :J=J+C:PUT5PRITE1,<I,J),7,S:IFJ<0 THEN F=NOTF:J=180 

100 IFNOTFTHEN:GOSUB250: 1 = 1+D:PUTSPRITE1,(1,180),7,S : IFSTRIG< 0)THEN F=NOTI 

110 IF I>244 THEN GOSUB 230 

1201F I<1 THEN GOSUB220 

130IFY>164 THEN290 

1 40 NEXTX,Y 

150 GOT0290 

160 G0T070 

1 70 DATA 0,108,254,254,254,124,56,16 
180 DATA 7.3.5.8,16,32,192,64 
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190 DATA 224,192,160,16,8,4,3,2 
200 DATA 16,56,16,16,16,16,56,40 
210 D=0:L , =-4:H=0:S=3:RETURN 
220 D=3:U=-3:H=3:S=1 :RETURN 
230 D=-3:V=-3:H=-3:S=2:RETURN 
240 RETURN 

250 ONSTICK< 0)G0SUB210,240,220,240,240,240,230,240 :RETURN 

260 SC=SC+1:F=0: 1 = 128 :J=180 :G0SUB170 :PUTSPRITE1,<I,180),7,S :RETURN70 

270 PRINT:PRINT:PRINT" <SPACE> POUR REJOUER" 

280 IF INKEY$< >""THEN 280 
290 SCREENO:COLORl5,4,7:CLS 
300 LOCATE10,10:PRINT"PERDU" 

310 PRINT:PRINT:PRINT"UOTRE SCORE:"; SC 
320 IFHI<SC THEN HI=SC 

330 PRINT:PRINT:PRINT"MEILLEUR SCORE:";HI 
340 PRINT:PRINT:PRINT" <SPACE> POUR REJOUER" 

345 FORQ=OT0500:NEXTQ 

350 IF INKEY*=" "THEN SC=0:GOTOl0 :ELSE 350 



COMMENTAIRES : 

Ligne 10 à 60 : initialisation du jeu 
Ligne 70 à 80 : affichage du coeur 
Ligne 90 à 100 : déplacement de la 
fléché 

Ligne 110 à 120 : test de sortie d'écran 
Ligne 130 : fin de partie 


Ligne 140 : déplacement du coeur 

Ligne 170 à 200 : données du jeu 

Ligne 210 à 250 : sous programme de 

déplacement de la flèche 

Ligne 260 : coeur touché 

Ligne 270 à 350 : routine de score, 

hiscore et nouvelle partie 
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LETTRES A GOGO 

Reconstituez le mot proposé par l'ordinateur 
à l'aide des lettres 
qui tombent du haut de votre écran. 

Mais attention : ne prenez jamais une lettre inutile. 
Utilisez les flèches pour vous déplacer. 


5 WIDTH40 

10 DIMAX(6) , BX < 6 > , LX < 6 > 

20 KEYOFF 

30 CLS:G0SUB1 90 :CLS 

40 FORQ=0TO5:LX<Q>=INT<RND<-TIME>*26>+65:AX<Q>=INT<RND<-TIME>*3?>:NEXTO 

50 L=RND( 1 ) *5 : LOCATEAXC L> , BX< L> : PRINT" " : BX < L ) =BX ( L > * 1 

60 IF BX<L>=22 THEN BX< L>=0 : LX< L) = I NT< RND< -TIME) *26) *65 : PLAY” F” 

70 LOCATE AX(L>,BX(L>:PRINTCHR*<LX<L>> 

! 80 LQCATEX,22 : PRINT“ ‘ " 

90 IF STICK< 0 >=3 AND X<38 THEN LOCATEX,22:PRINT" ":X=X+1 
100 IF STICK(0 >=7 AND X>0 THEN LOCATEX,22 :PRINT” ”:X=X-1 
110 B*=CHR*<VPEEK< 840 + X)>11F B*>“2“ OR B*<"A” THEN 50 
120 A=INSTR(N*,CHR*<VPEEK< 840+X))) 

130 IFAOO THEN MI D*<N*,A,1) = “?” :SC=SC+1 :LOCATEX,21 :PRINT” PLAY”A"iELSE 220 

140 IF SC=8 THEN CT=CT+1 :SC=0:SOTO20 
150 GOTO50 

160 DATATORNADES,BEDAINES,BALE INES,BANLI EUE,BAPTEMES,MEF1ANTS 
170 DATATRAHISON,MERCREDI ,FRI CTI ON.DEDICACE.ABLUTION 

180 DATA ANCETRES,SCALPEES,SECANTES,ENSABLEE,CARDINAL,RADICALE.TUYAUTEE 
190 RESTORE:N=INT(RND<-TIME)*18)* 1 :FORQ=lTON:READN*:NEXTQ 
200 LOCATE 10,10:PRINT”LE MOT A ATTRAPER EST ”;N* 

210 FOR Q=0TOl 000 :NEXTQ: RETURN 

220 CLS:PRINT”PERDU":LOCATE15.10 :PRINTN* 

230 LOCATE10,17:PRINT"VOTRE SCORESC+CT*8 
240 SC=0:LOCATE10,22 :PRINT"<SPACE> POUR REJOUER" 

250 IF INKEY*=” " THEN 20 ELSE 250 


COMMENTAIRES : 

Ligne 10 à 40 : initialisation du jeu 
Ligne 50 à 70 : chute des lettres 
Ligne 80 à 150 : déplacement du joueur 

7 . 


et prise de 
Ligne 160 à 
Ligne 190 à 
Ligne 220 à 


lettre 

180 : vocabulaire 

210 : détermination du mot 

250 : score 
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SPECTRUM 


ROULETTE RUSSE 


Préparez-vous à affronter la mort. 

Votre Spectrum adore jouer à la roulette russe, 
et lui, il a les nerfs solides... 

Pressez la touche 1 pour faire tourner le barillet et tirez. 
Si vous préférez vivre, pressez la touche 2. 



1 RESTORE : RflNDQMIZE * LET B=0 = LET Z=0 = BORDER 0= FORER 0 = INK 4= CLS 
10 FOR f=0 TO 10= PRINT RT f,0; PRPER Si" " = NEX 

T f 

15 PRINT RT 0,8; INK 2; PRPER 7; FLRSH 1;"rouiette russe" 

20 GO SUE 100= PRINT RT 5,16; PRPER 6; INK 0;"FECD";AT 6,13; PRPER 6; INK 0;"E 


22 GO SUE 170= PRINT RT 4,5; INK 0; PRPER 6;"FCC";AT 5,5; INK 0; PAPER 6;"CEF" 
; RT 6,5; PRPER 6; INK 0;"GUI"; RT 7,6; INK 0; PRPER 6;"J" 

25 PRINT RT 13,0; INK 1; PRPER 7; FLASH 1;"1";RT 13,2; INK 3; FLRSH 0; PRPER 0 


;"tourner le barillet et tirer" 

30 PRINT RT 15,0; INK 1; PAPER 7; FLASH 1;"2";AT 15,2; INK 3; FLRSH 0; PRFER 0 


;"abondonner" 

40 PAUSE 48= FRINT RT 10,10; PAPER 6;" "= PAUSE 0 

.42 IF INKEV$=" 1 " THEN FOR F=1 TO 25= BEEP .02,F= NEXT F= RANDQMIZE = LET b==INT 


*, P%l 1w w X 

45 IF INKEYS="2" THEN PRINT AT 21,10; FLASH 1;"de9onfle"= BEEF 1,-20= STOP 

50 IF 6=3 THEN PRINT AT 10,10; INK 2; PAPER 6;"BANG!!!"= FOR f=15 TO 1 STEP -1 
= PRINT RT 5,f; INK 0; PAPER 6;"."= BEEP .01,15= NEXT f= BEEP .2,0= PRINT RT 21, 
Si INK 2; PAPER 7; FLRSH 1;"V0US ETES MORT!!"= PAUSE 0= GO TO 1 

51 PRINT RT 10,10; INK 2; PAPER 6;"CLICK! ! !"= LET Z=Z+1= BEEP .2,20 

55 IF Z=10 THEN PRINT AT 21,7; INK 2; PAPER 6; FLRSH 1;"**#V0US GAGNEZ***"= FO 
R F=1 TO 10= BEEP .1,10= BEEP .05,20= BEEP .002,0= NEXT F= FOR F=1 TO 150= OUT 2 
54,F= NEXT F= GO TO 1 
60 GO TO 40 

30 REM rico...on ne meurt Pas vraiment!!! 

100 FOR a=USR "a" TO USR "e"+7 
111 RERD user = POKE a,USER 
115 NEXT a= RETURN 
120 REM revolver 

130 DATA 0,128,128,255,128,255,0,0 

135 DATA 0,15,8,255,8,255,8,15 

140 DATA 0,255,7,255,7,255,7,255 

145 DATA 112,224,132,132,132,132,224,240 

150 DATA 252,252,252,252,252,124,124,56 

170 REM crâne 

180 FOR a==USR "a" TO USR "j"+7 
130 RERD user = POKE a,user 
135 NEXT a= RETURN 
200 DATA 0,1,2,2,4,4,4,4 
210 DATA 255,0,0,0,0,0,0,0 
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% - 

215 DRTfl 132,43,8,8,4,4,4,4 

220 DRTR 4,3, 9, 8,8,4, 4,4 

225 DRTR 224,241,241,224,0,0,0,8 

230 DRTR 230,242,242,226,4,4,4,4 

235 DRTfl 4,4,4,2,2,1,0,0 

240 DRTR 8,23,28,0,0,0,128,128 

245 DRTR 8,8, 16, 32,32,64,64, 64 

250 DRTR 170,191,149,128,é4,33,30,0 


COMMENTAIRES : 

Ligne 1 à 10 : présentation du haut de 
l'écran 

Ligne 15 à 40 : affichage du bas de 
l'écran 

Lighne 42 i test d'une touche et tirage 
aléatoire pour savoir si le coup est 


mortel 

Ligne 45 : cas ou le joueur quitte la 
partie 

Ligne 50 à 60 : affichage des 
différentes options et retour au début 
du jeu 

Ligne 100 à 150 : dessin du revolver 
Ligne 150 à 250 : dessin du crâne 


- SPECTRUM - 

U-BOAT 

Un sous-marin ennemi se cache au fond des eaux troubles 

du Pacifique. 

Lâchez vos mines sur lui 
avec le plus de précision possible. 

Pour jouer, il vous suffit - 
d'entrer les coordonnées X et Y du sous-marin. 



♦ 1 POKE 23609,20' G0 SUB 680' REM eric the coconut 

2 LET temPs=0' LET 1=20' LET h=ll= LET s=0 = LET 4=0' LET w=0= LET 9=15' LET P 
=0' LET c=l' BORDER 0' PAPER 0' INK 4' CLS 

10 FOR f =0 T0 31' PRINT RT 0,f; INK 2; PAPER 6; FLRSH l;"*"• PRINT RT 21,f; IN 
K 2; PAPER 6; FLRSH 1 ;•'*"« BEEP .009,10= NEXT f' FOR f=0 T0 21' BEEP .008,f' PRI 
NT RT f,0j INK Zi PRPER Si FLASH U"#"' PRINT RT f,31; INK Zi PAPER Si FLASH 1," 
NEXT f 
15 G0 SUB 29 
18 LET C=C+1 




19 IF INKEYtO"" THEN FOR F=1 T0 21' PRINT #1 « BEEP .006,F' NEXT F' CLS ' G0 T 
0 45 

20 PRINT RT 5,3; FLRSH 1; INK Ci "I I P"» P^ r-1 —" 

22 PRINT RT 6,3; FLRSH 1; INK c;"I I II II II I" 

23 PRINT RT 7,3; FLRSH 1 ; INK Ci "I I mm kmi II I " 

25 PRINT RT 8,3; FLRSH 1; INK c;"I I II I I I I I” 

26 PRINT RT 9,3; FLRSH 1; INK Ci"bmâ W W I I I" 

27 IF c=7 THEN LET c=0 


► 
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28 BEEF' .007,c*5= GO TÜ 18 

28 PP INT RT ISM; INK 6.:" eric caberia" : RETURH 

45 FOR f=l TO 12= PRINT PAPER 1; " „ MtrVT . 

R f=0 TO 5= PRINT RT f,0: PAPER 5=" : NEXT f 

58 INK 2: PLOT 0,175 : DRAW 255,0= PLOT 0,30; DRAW 255,0 = PLOT 0,80“ 
PLOT 255,80= DRAW 0,95= PLOT 127,30= DRAW 0,95 


NEXT f= FO 
DRAW 0,95= 


s: 


PRINT AT 5,5.: PAPER 5; INK 0J ,, 1JK" 

55 LET fuel=55 

70 RANDOMIZE * ^LET^x^IHT < RHO* 100 >+1 = LET y = INT <RND*100>+l= LET Z=INT < RND*10 

0HÎ 

75 REM Position chasseur 

85 LET a=INT (RND*100>+1= LET b=INT < RND*100 >+l 
100 PRINT AT 17,0; INK 2;"1-DEPLACEMENT"= PRINT AT 19,0: 4; "2-PROF GRENADE 

= FOR f-9 TO 6 STEP -1= PRINT AT f,22.: FAPER 1; INK 0;"FeC";AT f+1,22.: CEF ■ PKI 

HT AT f+2,22; PAPER ..BEEP .l,f= NEXT 

110 PRINT RT 12,10; PAPER 7; INK 1; FLASH 4. 


PRINT AT 12,29; PAPER 7; INK 


1; FLASH w; 


PRINT AT 12,2; INK 1; PAPER’7; FLASH 4;" fuel =";fuel= PRINT AT 


; 9= PRINT AT 13,0; INK 3;"COORD X=" 


B 


12,18; INK 1; PAPER 7; FLASH " grenades 
; R = PRINT AT 15,0; INK 6;"COORD Y = ";B 
115 LET teMPs=temPs+l 

11F IF temPS=1200 THEN LET 9=0= GO TO 175 

120 IF IHKEY$="1" THEN GO SUB 200 „ „ „ , rn 

130 IF INKEY*="2" THEN IF 9>0 THEN INPUT INK t.; "Profondeur caftai ne < ,P- GO 

ÜB 500 

135 IF P>100 THEN PRINT AT 21,3; INK 2; PAPER 
LET P=0= BEEP 1.5,-10= GO SUB 500 
140 IF P=1 THEN PRINT AT 21,4; INK 2; FLASH 1 
EEP l.-l«= PAUSE 0= GO SUB 500= CLS = GO TO 1 
155 IF P<>0 THEN PRINT RT 21,0; INK 6;"-sonar . ------- „ 

175 IF 9=0 OR fu.el-0 THEN PRINT AT 2,17; INK- 0; PAPER l;"a notre tour ' = PAUoE •• 

8= PPIHT RT 2.17: PAPER 1:" " = FUR f=4 TO 1 STEP -1= PRINT HT f,*3, F 

APEP 1 : INK 0; H"; AT f+1,23;" ». BEEP .05,f= NEXT f= PRINT AT 1,23; PAPER 1;" " = 
PRINT AT 11,6; INK 0; PAPER 1;"H"= FOR f=10 TO 6 STEP -1= PRINT RT f,6; FAFER 1 
; INK 0;"H"; AT f+1,6; PAPER 1;. BEEP .05,f+5= NEXT f= GO TO 1000 

200 BEEP* .1,10= BEEP .1,-10= INPUT INK 6; "nouvelle coord >; caP'taine :"";a = PR IN 

T AT 13,8; PAPER 0;" 

201 IF a<1 OR a>100 THEN GO TO 200 

210 BEEP .1,10= INPUT INK 6;"nouvelle coord y caP'taine ? ;b= 

PER 0;" 


7 i FLASH 1 ;"PROF MAX 100 METRES" 
PAPER 7;" AUTO-DESTRUCTION!!"* 
GO SUB 600= GO TO 110 


PRINT AT 15,8; PA 


211 IF b<1 OR b>100 THEN GO TO 210 

215 LET fuel«fuel-5 

216 IF fuel»10 THEN LET 4=1 
220 RETURN 
500 PRINT AT 21,0;" 

600 IF a=x AND y=b AND P=z THEN LET 

PAUSE 4= OUT 254,f= NEXT f= PRINT AT 21,5; 
ç.; " coups **" = FOR f=l TO 50= BEEP . 02,f 


1=22 


f=l TO 50=' 

** bravo en 
601 GO SUB 900 

605 IF b<y THEN PRINT "sud"; 

606 IF b>y THEN PRINT "nord"; 

607 IF a>x THEN PRINT "-est"; 
a<x THEN PRINT "-ouest 


"= RETURH 

LET h=6= GO SUB 900= GO SUB 1500= 
INK 2; PAPER 7; FLASH 


FOR 
1 ; " 


NEXT f= PAUSE 0= GO TO 2 


608 

610 

620 


IF 


trop haut 


IF b<>y OP. aOx THEN PRINT " et 
IF P>Z THEN PRINT " trop bas 
625 IF P<Z THEN PRINT 

627 IF P=Z THEN PRINT 

628 LET s=s+l= IF 9=2'THEN LET W=1 
630 LET P=0= PRINT AT 2,22; PAPER 1; 

T ÂT 2,22; PAPER 1;" "= RETURN 

680 FOR f=USR "a" TO USR "n"+7 
685 READ user = POKE f,user 
690 NEXT f= RETURN 
700 DATA 0,O,0,0,0,0,0,195 
705 DATA 12,8,30,63,63,63,255,255 
710 DATA 0,0,0,0,0,0,192,252 
715 DATA 175,159,159,159,167,195,0,0 


BEEP 

BEEP 


5, 10 
.5,20 


Prof ok."= BEEP .5,20 

INK 0;."ouf ! ! " = PAUSE 100= GO SUB 500= PRIN 
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|720 DflTfl 255,255,255,255,255,255,255,63 
725 DATA 254,255,255,255,254,252,192,0 
730 DflTfl 129..90,60,126,126/60,90,129 
735 DflTfl 8,8,8,8,8,8,8,20 
740 DflTfl 0,1,1,15,15,255,127,63 
745 DflTfl 0,207,216,240,254,255,255,255 
750 DflTfl 0,128,0,124,96,255,248,224 
760 DflTfl 42,129,43,128,43,128,41,82 
770 DflTfl 0,0,42,64,42,64,42,0 
780 DflTfl 0,0,0,24,24,0,0,0 

900 PRINT AT 6,6; PAPER 1; INK 0; "G" : FOR F=7 TO 11 * PRINT AT f,6; PAPER 1; INK 
0;"G"; AT f-1,6; INK 0; PAPER 1;" "■ BEEP .05,F= NEXT F : PRINT AT 11,6; PAPER 1; 
» "s FOR f=l TO h- PRINT AT f,l; PAPER 1; INK 0;"G";AT f-l,l; PAPER 1;" "* BEEP 
.05, f' NEXT f« LET 9=9--1 

910 PRINT AT 11,20; PAPER 1;" " = INK 2= PLOT 0,175= DRAW 255,0= PRINT FIT 21,0; 
INK 6;"sonar ";= RETURN 
1000 REM explosion chasseur 


1010 PRINT AT 6,6; PAPER 1;" "= PRINT AT 5,5; INK 2; PAPER 5;"LLL"= BEEP 


o, _ 


10 = 


PRINT flT 5 ' 5i ihk 2; PHPER Si " 

1020 PRINT AT 21,0; INK 6;" u-boat= x="; x;" y=";a," Prof=";z= PAUSE 0= GO TO 2 
1450 REM explosion u-boat 

1500 PRINT AT 6,22; IHK 2; PAPER 1; "LLL";FIT 7,22; INK 2; PAPER 1;"LLL"= BEEP .2, 

-10 

1600 PRINT AT 6,22; INK 2= PAPER 1 ; "Ft-M" ; AT 7,22; INK 2; PAPER 1;"FM-T = BEEP .2, 

-10 

1700 PRINT AT 6,22; INK 2; PAPER 1 ;"NFN" ; AT 7,22; INK 2; PAPER 1; "NFN"= BEEP .2, 
-10= PRINT AT 6,22; PAPER 1;" "; AT 7,22; PAPER 1;" "= RETURN 


COMMENTAIRES : 


Ligne 1 : ce poke augmente la longueur 
du beep écran 

Ligne 2 : initialisation des variables 
Ligne 10 à 52 s présentation du jeu 
Ligne‘70 : position de 1'u-boat 
Ligne 80 à 110 : position de votre 
navire 

Ligne 115 : durée du jeu 
Ligne 116 : test de -fin de jeu 
Ligne 120 à 130 : test clavier 


Ligne 140 à 155 : 

Ligne 175 à 180 : 

Ligne 200 à 500 t 

bateau 

Ligne 600 à 630 : 
après le tir 
Ligne 680 à 690 : 
des cartactères 
Ligne 700 à 780 : 
Ligne 1010 à 1020 
sous-marin 
Ligne 1500 à 1700 
1'u-boat 

SPECTRUM - 


auto destruction 
tir du sous-marin 
déplacement de votre 

affichage d'un message 

routine de chargement 

DATAS des caractères 
: explosion du 

: explosion de 


DUEL 


Deux ovnis se poursuivent dans des gerbes d'étincelles. 
Touchez l'autre, vous marquerez un point. 

Mais vous perdrez deux points si vous rentrez en collision 

trop brutale avec lui. 

Joueur numéro 1, Q = haut, X = gauche, C = droite, A = bas, 
Z = tirer à gauche et V = tirer à droite. 

Joueur numéro 2, P = haut, N = gauche, M = droite, L = bas, 
B = tirer à gauche et «. » = tirer à droite. 


1 REM MMI 

2 REM PGM; OVNI 

5 LET 10=0= LET C$="#"= LET PB=5= LET Pfl=5= LET A0=0 = LET B0=0= LET 
R3=0 = LET fl4=0 = LET B3=0 = LET B4=0 
10 BORDER 0 = PAPER 0 : IHK 6= CLS = LET B5="" : G0 T0 40 
20 LET Z=IMT <RND*32> : RETURN 














30 

40 

45 

=ifï 


55 

60 

65 

70 

75 

80 

85 

90 

95 

100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

171 
175 
180 
181 
185 
190 
195 
200 
215 
220 
221 
225 
230 


LET R3=l 


LET 84=1 


93I 


235 

240 

250 

260 

261 

265 

270 

280 

290 

291 
295 
300 
305 

310 

311 
315 
320 
325 
330 
340 
350 
360 
370 
380 
SUE 


LET 2*INT < RNDY22>= RETURN 
GO SUE! 20 ; LET R1=Z = GO SUB 30= LET R2=Z 
GO SI IB 20= LET B1=Z = GO SUB 30= LET B2=Z 
IF INKEY**"4" THEN LET R4=R4-1 

IF INKEY*=="a" THEN LET R4=R4+1 

IF INKEY$="c" THEN LET R3=R3+1 

IF INKEYÏ="x" THEN LET R3=R3-1 

IF INKEYS="P" THEN LET B4=B4-1 

IF INKEY$="1" THEN LET B4=B4+1 

IF INKEYÏ=="m" THEN LET B3=B3+1 

IF INKEY$=="m" THEN LET B3=B3-1 

IF ROO0 THEN GO TO 110 
IF INKEY$="v" THEN LET R0=1= GO TO 105 
IF INKEY*="Z" THEN LET R0=-1= GO TO 105 
LET RX=fi1+R0 = LET RY=R2 
IF 8000 THEN GO TO 130 
IF INKEY$= ". " THEN LET B0==1 = GO TO 125 
IF INKEY$="b" THEN LET B0=-1= GO TO 125 
LET BX=B1+B0= LET BY=B2 
LET R1=R1+R3 = IF R1<1 THEN LET Rl = l 
IF RI>30 THEN LET Rl=30= LET R3=-l 
LET R2=R2+R4= IF R2<0 THEN LET R2=0 
IF R2>21 THEN LET R2=21= LET R4=-l 
LET B1-B1+B3 = IF B1<1 THEN LET B1 = 1= LET B3=l 
IF B1>30 THEN LET B1=30= LET B3=-l 
LET B2=B2+B4 = IF B2<0 THEN LET B2=0= LET B4=l 
IF B2>21 THEN LET B2=21= LET B4=-l 
CLS = IF R0=0 THEN GO TO 180 

LET RX=flX+fl0+R3= IF RX<31 RND RX>0 THEN GO TO 180 
PRINT RT RY,15.5+80*15.5;= LET R0=0 
IF B0=0 THEN GO TO 190 

LET BX=BX+B0+B3= IF BX<31 RND BX>0 THEN GO TO 190 
PR INT RT BY,15.5+B0*15.5•= LET B0=0 
PRI HT RT R2,R1-1.;"=R="JRT B2, Bl-1 • "=B=" 

IF R0<>0 THEN PR INT RT RY, RX.= 

IF B0O0 THEN PR INT RT BY , BX, 

PP INT #1.; "fl=".= PR, ,, B= 1 ' > PB 
IF R0=0 OR B0=0 THEN GO TO 230 
IF RXOBX OR RYOBY THEN GO TO 230 
PRINT RT BY,RX;"*"= LET RO=0= LET B0=0 
IF B0=0 THEN GO TO 260 
IF R20BY THEN GO TO 260 
IF BX>R1+1 OR BX<R1-1 THEN GO TO 260 
LET X=BX= LET Y=BY= LET PB=PB+1= GO SUB 410= LET B0=0 
PRINT RT 2,10J"FUSEE R DETRUITE"= GO SUB 400 
IF R0=0 THEN GO TO 290 
IF B20RY THEN GO TO 290 
IF RX>B1 + 1 OR HX<Bl-1 THEN GO TO 290 
LET X=RX= LET Y=RY= LET PR=F'R+1 = GO SUB 410= LET R0=0 
PRINT RT 2,10J"FUSEE B DETRUITE" 

IF R0=0 THEN GO TO 310 
IF R20RY THEN GO TO 310 
IF RX>R1 + 1 OR RX<R1-1 THEN GO TO 310 
LET X=RX= LET Y=RY = LET PB=PB+1= “ 

PRINT RT 2,10;"SUICIDE FUSEE R"= 

IF 80=0 THEN GO TO 330 
IF B20BY THEN GO TO 330 

IF BX>B1 + 1 OR BX<B1-1 THEN GO TO 330 _ 

LET X=BX= LET Y=BY = LET Pfl=PR+l= GO SUB 410= LET B0=0 

PRINT RT 2,10;"SUICIDE FUSEE B"= GO SUB 400 

IF R20B2 THEN GO TO 50 

IF B1 >fll+2 OR BKfll-2 THEN GO TO 50 

LET S=R1= IF B1>S THEN LET S=B1 

LET I=R1 = IF BKI THEN LET I=B1 

1 FT B$=" " = FOR J=0 TO S+2-I = LET B*=B$+C$= NEXT J 

LET X=I+< S-IV2 = LET Y=R2 = PR INT RT R2,I-1;B$= LET PR=PR-2= LET PB=PB*1 = GO 
410 


GO SUB 400 


GO SUB 410= LET R0=0 
GO SUB 400 
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" 390 PR INT RT 1,20; "COL I SI OH i ! ï " = GO SUB '400= GO TO 40 
400 BORDER 6= PAUSE 5 = ' BORDER 2= PRIJSE 10= BHRDER 3 : PAUSE 5= BORDER 0 

410 GO SUB 570 

411 IF PA>PB THEH GO TO 500 
420 IF PA>8 THEH GO TO 440 

430 CLS = PRIHT #1;"LE PILOTE DE LR FUSEE 'R' DOIT ETRE RECYCLE D'URGENCE !"* 
GO TO 560 

440 IF PB>0 THEH GO TO 4*60 

450 CLS = PRIHT #1.;"LE PILOTE DE LR FUSEE 'B' DOIT ETRE RECYCLE D' URGEHCE ! " 
GO TO 560 

460 IF PB<15 THEH GO TO 480 

470 CLS = PRIHT #1 ;"FELICITATION PILOTE B" = GO TO 560 
480 IF PA<15 THEH RETURH 

490 CLS = PRIHT #1"FELICITATION PILOTE fl": GO TO 5F0 

500 IF PB<0 THEH GO TO 450 

510 IF PR<0 THEH GO TO 430 

520 IF PA>14 THEH GO TO 430 

530 IF PB>14 THEH GO TO 470 

540 RETURH 

560 GO SUB 400= RUN 

570 LET C1=0= LET C2=0= LET C3=0= LET C4=0 

580 FOR 1=1 TO 10 

590 IF Y-I<0 THEH LET Cl=l 

600 IF Y+I>21 THEH LET C2=l 

610 IF X-I<0 THEH LET C3=l 

620 IF :=<+I>31 THEH LET C4=l 

630 IF C1=1 THEH GO TO 670 

640 IF C3=l THEH GO TO 660 

650 PRIHT RT Y-I ,X-I > "P" 

660 PRIHT RT Y-I,X;= IF C4=0 THEH PRIHT RT Y-I,X+I;"T' 

670 IF C3=l THEH GO TO 690 
680 PRIHT RT Y,X-Ij " I" 

690 PRIHT RT Y.-X;" " 

695 IF C4=0 THEH PRIHT RT Y,X+Ij" I" 

700 IF C2=l THEH GO TO 740 
710 IF C3=1 THEH GO TO 730 
720 PRIHT RT Y+I.X-I; "■" 

730 PRIHT RT Y+I,X;: IF C4=0 THEH PRIHT RT Y+I,X+I;" 

740 NEXT I= RETURH 
750 RETURH 



COMMENTAIRES s 

Ligne 0 à 45 : initialisation des 
var i abl es 

Ligne 50 à 85 : test du clavier 
Ligne 90 à 125 : test du tir et 
ichâge 

ne 130 à 170 : variation des 



coordonnées selon la vitesse 
Ligne 175 à 340 : tests de collisions 
Ligne 350 à 390 : sous programme de 
col 1isi on 

Ligne 400 à 5éO s sous programme de 
score et test de limites écran 
Ligne 570 à 750 : sous programme 
d'explosion ► 
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SPECTRUM 


SUITE INFERNALE 

Une suite de nombre apparaît en haut à droite de votre 
écran. Reconstituez-la 
en ramassant dans votre petite barque 
les chiffres qui tombent du ciel. 

Faites vite sinon la suite va changer. Pour vous déplacer, 
sachez que 5 = gauche, 8 = droite. 



10 REM 

26 REM * TILT * 

30 REM 

31 GO SUB 9000 

32 REM variables 

33 LET n$="0" 

39 LET s=0 

41 GO SUB 8000 

42 LET d=l 

43 LET y 1 = 16 
46 FRPER 0 ! INK 7■ 

4? REM Position du chiffre 

50 LET nombre-INT (RND*10>+48 
60 LET x=4 = LET y = IHT <RND*27>+2 

66 PR INT RT 0 / 0 

67 PR INT RT 2/8 ; " 

PRINT RT x,y; INK <RND*6>+l ;CHR$ nombre 


BORDER 1= CLS 


PR INT RT x-1 .■ y ; CHR® 32 

PR INT RT 21, y 1 ; INK 6;" W " 

1,0;"SCORE : "; INK 6;s 
1.. 16; "SUITE : " ; INK 5;r.«d TO u>; 


IF y 1>27 THEN LET y 1=27 
IF y1<0 THEN LET y 1=0 


80 
81 
90 

92 PRINT RT_ 

93 PRINT RT 1,16;"SUITE «"i INK 5;nï(d TO w>; INK 7;" 

95 LET x=x+l 

100 IF INKEY$="8" THEN LET yl=yl+l= 

101 REM test clavier 
110 IF INKEY$="5" THEN LET al=sl-l‘ 

115 IF x=21 THEN GO SUB 1000 = GO TO 50 
120 IF s>50 RND LEN n*=l THEN GO TO 5000 
200 GC TO 68 

999 REM test si bon chiffre 

1000 IF y=y1+2 OR y=yl+l OR y=yl+3 THEN BEEP .1/10= GO TO 1010 
1002 PRINT RT 20/y ;" " 

1005 LET s=s-l RND s>0 = PRINT RT X/y;" 

8000 •• GO TO 50 „ , „ 

1010 LET a$=n$(d TO d> = BORDER RND*7= IF nombre=CODE a$ THEN_LET s=s+2= LET d=d+ 
1: LET n#=n*<d TO LEN n$> = LET w=LEN n$ = PRINT RT 20/y;" 

1015 PRINT RT 20/y;" " 

1020 LET s=s+l= RETURN 

3000 IF LEN n$=l THEN GO SUB 8000= GO TO 42 
3010 RETURN 

5000 CLS = PRINT RT 10,13;"BRAVO!" 


LET n$=CHR$ (INT (RND*10 >+48 > = GO SUB 


GO SUB 3000= RETURN 
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I FOR f=0 TO 69: BEEP .01/f ! NEKT f 
) PAUSE 0: RUN 
> REM création de la suite 

l FOR f=l TO INT <RND*10? : LET n*=r.$+CHRS < INT (RND*10)+43>= NEKT f 
5 IF LEN n$=l THEN GO TO 8000 
5 LET w=LEN n$ 

J RETURN 

ï REM CHR$ redefinis * 

3 FOR f=USR "a" TO USR "d"-l 
J READ a 
: POKE f .• a 
î NEKT f 

3 DATA £24.i208.176/208/175/85/42/31/0/0/0/0/255/85.. 170/255/7/13/11/13/251/86/ 
' 248 

3 NEKT f 
3 RETURN 


COMMENTAIRES : 

Ligne 32 à 43 : initialisation des 
var iables 

Ligne 46 : initialisation de l'écran 
Ligne 50 à 60 : tirage aléatoire de la 
position du nombre qui descend 
Ligne 66 à 93 : affichage du décor 


Ligne 100 à 200 : test du clavier 
Ligne 1000 à 1020 : teste si le chiffre 
est bon 

Ligne 5000 à 5020 :1a partie est gagnée 
Ligne 8000 à 8010 : tirage aléatoire 
d'une suite 

Ligne 9000 à 9040 : redéfinition des 


caractères graphiques 

SPECTRUM - 


SPACE WALL 


Protégez le mur magnétique qui défend votre cité contre les 

attaques ennemies. 

5 = gauche, 6 = haut, 7 = bas et 8 = droite. 



REM ******31 WXXXtXttX***.** 

REM * TILT * 

rem #**mmm*m*#*** 

PAPER 0= INK 6: BORDER 0= CLS 
REM VARIABLES 
GO SUB 9000 
LET S=0 

LET C=l= FOR F=1 TO 21* LET C=C+1 

IF C=7 THEN LET C=1 

PR INT AT F,. 28; INK C; "0" * NEKT F 

LET K=16 : LET Y=16 

REM Position du vaiseau 

LET A*INT <RND#21> 

LET 8=INT <RND*8) 

PR INT AT Y/K; OVER 1; ,, +" 

PRINT AT A/B+li"»" 
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GO TO 60 


111 PRINT RT fl,B j" " 

112 PR INT FIT Y ,‘X; OVER 1;" + " 

113 IF SCREEN* <fl,B+2>="0" THEN BEEP .1,10= PRINT RT a.,b+ 1; 

115 LET B=B+1 

120 IF B>28 THEN GO TO 2000 

121 PRINT RT 0,0: OVER 1 ;"SCORE : ; S 

122 REM test clavier 

125 LET X==X+C INKEY5>="8" HND X<30 >-< INKEY*»"5" HND X>0> 

126 LET Y=Y+fINKEY$="6" AND Y<21 X INKEY*»"?" AND Y>0) 

127 PRINT RT 0,0; OVER 1;"SCORE«">S 

128 IF s>100 THEN GO TO 3000 

180 ÏF 1 IHKEY*="0 , ' C THEfrÎF n X=B HND Y=fl THEN PRINT RT fl,B+l.:" "-HT Y,Xi" 

=3+1= FOR F=0 TO 10= BEEP .01,F= NEXT F= GO TO 60 
200 GO TO 100 

2000 FOR f=0 TO 10= BEEP .l,f*2= PRINT RT y,K-"*" 

NEXT f 
2010 CLS 

2020 PRINT RT 10,12;"SCORE="; S 

2030 FOR F=0 TO 50= BEEP .01,F= NEXT F 

30RR HLS"^ FOR f=0 TO 21= PRINT RT f,f; INK INT (RND#6>+l;"BRHVO!"= BEEP .01,f= 

NEXT f« PAUSE 0= RUN 

8989 REM CHR$ redefini 

9000 FOR F=U3R “R" TO USR “B"-l 

9013 RERD R 

9020 PQKE F,R 

9030 NEXT F 

9040 DATA 0,0,248,175,215,248,0,0 

9100 RETURN ___ 


LET S 

BEEP .l,f= PRINT RT y,X;"+"= 


COMMENTAIRES 


Ligne 35 : 
Ligne 45 à 
variables 
Ligne 60 à 


initialisation de l'écran 
50 : initialisation des 


65 


tirage aléatoire de la 


position des vaisseaux 


Ligne 100 à 112 s a-f-fichage des 
vaisseaux 
Ligne 121 : 

Ligne 125 à 
Ligne 130 à 
col 1isi on 

Ligne 9000 à 9100 : redéfinition des 
caractères graphiques 


a-f-fichage du score 
126 : test du clavier 
3000 : tir et test de 


SPECTRUM 


BLACK JACK SPECIAL 

Approchez les 21 points sans jamais les dépasser. 
Les cartes au-dessus de 9 
valent 10 points, un as vaut 1 ou 11 points 
selon le désir du joueur et les autres cartes gardent leur 

propre valeur. 

Pour jouer, il vous suffit de suivre 
les directives de l'ordinateur. 


*■» 

10 

100 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 
1009 


1 PAPER 0= BORDER 
LET y=0 = LET x=0 = 
GO TO 5000 
DATA BIN 00011000 


0= INK 4= 
LET or=0 = 


CLS 

LET 


= GO 
co=0 


SUB 1000 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


BIN 

BIN 

BIN 

BIN 

BIN 

BIN 

BIN 

BIN 

BIN 


00111100 
01111110 
11111111 
01111110 
00111100 
00011000 
00000000 
00110110 
01100011 


122 













1010 DATA BIN 01110111 

1011 DATA BIN 01111111 

1012 DATA BIN 00111110 

1013 DATA BIN 00011100 

1014 DATA BIN 00001000 

1015 DATA BIN 00000000 

1016 DATA BIN 00011000 

1017 DATA BIN 00111100 

1018 DATA BIN 01111110 

1019 DATA BIN 11111111 

1020 DATA BIN 10011001 

1021 DATA BIN 00011000 

1022 DATA BIN 00011000 

1023 DATA BIN 00000000 

1024 DATA BIN 00011000 

1025 DATA BIN 00111100 

1026 DATA BIN 00011000 

1027 DATA BIN @1011010 

1028 DATA BIN 11111111 

1029 DATA BIN 01011010 

1030 DATA BIN 00011000 

1031 DATA BIN 00011000 


2001 


3001 

3002 

3003 


FOR x=0 TO 7 

READ 

a = POKE USR 

"a"+x..a = 

NEKT 

X 

FOR x-0 TO 7 

READ 

b = POKE USR 

"b"+X/b= 

HEXT 

X 

FOR X=0 TO 7 

READ 

c = POKE USR 

"c"+x.c= 

NEKT 

X 

FOR x=0 TO 7 
RETURN 

READ 

d = POKE USR 

"d"+x.-d = 

NEXT 

X 

PRINT INK 2= 

PAPER 

7 i AT Xj y i" 

il 



PRINT INK 2 i 

PAPER 

7i AT x+1,y ; " 

U 



PRINT INK 2J 

PAPER 

7 i AT x+2 .■ y" 

ii 



PRINT INK 2.= 

PAPER 

7;AT x+3,y i " 

il 



PRINT INK.2 i 

PAPER 

7.; AT x+4.. y ; " 

H 



PRINT INK 2; 

PAPER 

7 i AT x+S^y;" 

h 



PRINT INK 2; 

PAPER 

7> AT x+6.y i" 

" 




3010 RETURN 

4000 REM i=i 1 

4001 GO SUE: 3000 

4002 PR INT AT x+3,y+l; INK Zi PAPER 7;CHRS c = RETURN 

4010 REM fi 2 

4011 GO SUB 3000 

4012 PRINT AT x+l,y+l; INK zi PAPER 7;CHRS c;AT x+5,a +1 ;CHR$ c = RETURN 

4020 REM fi 3 

4021 GO SUB 4000 

1022 PRINT AT x.y+l i INK Zi PAPER 7;CHR* c;AT x+6;a + 1 i CHR* c = RETURN 

4030 REM fi 4 

4031 GO SUB 3000 

4032 PRINT AT x+l..y.= INK Zi PAPER 7;CHR$ a " "jCHR* c;AT x+5>y/CHR* c; " ";CHR* c 
• RETURN 

4040 REM fi 5 

4041 GO SUB 3000 : GO SUB 4030= GO SUB 4002 

4050 REM fi 6 

4051 GO SUB 3000 

4052 GO SUB 4032= PRINT AT x+3,a; INK zi PAPER 7jCHR$ c.= " ";CHR* c = RETURN 

4060 REM fi 7 

4061 GO SUB 3000 

4062 GO SUB 4052= PRINT AT x+2,a+l; INK zi PAPER 7jCHR* c= RETURN 
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RETURN 


4070 REM R 8 
4072 GO SUS 3000 

Zl g SS «§■ PRINT RT x+4* y +1 1 INK « PRPEP 7, CW. c RETURN 

4080 REM FC? 

4090 GO SUB 3000 y-rwPï r•" ";rHRæ r; RT x+2,yiCHR* Ci" "iCHR* Ci 

’7cHRï CI RT x+l,a+I;CHR» c peturh 

4113 GO SUB 4895. RETURN 

4200 REM R v 

4210 GO SUB 3000 . .■ r up« r; 

4220 PRIHT RT x+l^Mi INK ai PAPER c< v ,.CHR$ - 

4300 REM fl D 

4330 PRiNT B flT W xïl,»i INK ai PAPER 7i"D"iCHRÏ c- RETURN 
4400 REM R R 

Tàl PRINT B RT 0 “l,y ; INK 41 PRPER 7>"R"..CHR* c RETURN 

5000 REM choix des cartes 

5001 LET y=0 
5010 LET f=INT <RND*3 > 

5020 IF f=0 THEN LET c=144 
5030 IF f=l THEN LET c^=145 
5040 IF f=2 THEN LET C=146 
5050 IF f=3 THEN LET C=147' 

ilH ^p T gf11 + THEN^GO^SUB3990+C9*10)5= LET C0=C 0 4 9 . GO TO 5220 
5210 IF o=ll THEN GO SUB 4200 
5?11 if o=12 THEN GO SUB 4300 
5012 IF o=13 THEN GO SUB 4400 

Ül ifcSSM or=0 THE» PRINT «1,-M-nt .«HuM- PIM* *• “ TO » 

!lit % “^™THEN E SpÜt -U» autre carte?"aï. IF a*="o» THEN LET GO TO 5 

010 

5500 LET col=CO= LET cc-0 

5510 LET or=l 

5520 LET x=x+10 : LET y=W 

5650 GO SUB 5010 

5655 LET y=y+4 

5700 IF CO >21 THEN PRINT #lî" 9 a 9 ïw"j PAUSE 0* GO TO^6000 
5705 IF co>col THEN PRINT #0i"Perdu ! ! = PHUoE 0- GO TO 600L 
5710 IF co<col THEN PRINT #0.;; 9a Jne F PJUSE S>- “ TO 600 J 
6000 INPUT "une autre Partie? ? a$• IF a*- n THEN o - 

9999 FOR P=0 TO 1000= GO SUB 5000 : NEXT P _ 




LET a=2 
LET a=2 
LET a=0 
LET a=0 


COMMENTAIRES : 


Ligne 

Ligne 

carac 

Ligne 

carac 

Ligne 

carte 

Ligne 

Ligne 

L i gne 

Ligne 

L i gne 

Ligne 

Ligne 

Ligne 

L i gne 


1 à 10 : initialisation de l'écran 
1000 à 1031 : redéfinition des 
tères graphiques des cartes à jouer 
2000 à 2999 : chargement des 
tères graphiques 
3000 à 3010 : affichage d'une 


Ligne 
Ligne 
L i gne 
Ligne 
Ligne 
Ligne 


4110 

4200 

4300 

4400 

5000 

6000 


4113 

4220 

4330 

4430 

5710 

6010 


affichage 
affichage 
affichage 
affichage 
choix des 


du dix 
du valet 
de la dame 
du roi 
cartes 


voulez-vous rejouer 


blanche 


4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4090 


4002 

4012 

4022 

4032 

4041 

4052 

4062 

4076 

4095 


affichage 
affichage 
affichage 
affichage 
affichage 
affichage 
affichage 
affichage 
affichage 


de 

du 

du 

du 

du 

du 

du 

du 

du 


l'as 
deux 
trois 
quatre 
c i nq 
si x 
sept 
hu i t 
neuf 
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_ SPECTRUM _ 

ROMÉO 

Rôle difficile que celui de Roméo. 

Surtout depuis qu'on a remplacé son échelle par une 

catapulte ! 

Vous avez dix essais pour sauver votre bien-aimée. 
Calculez soigneusement le poids de la charge 
qui tombera sur la catapulte et indiquez-le simplement 

à votre ordinateur. 


1- GO SUB 1000= PAPER 0= BORDER 0= INK 4= CLS = LET score=@= LET hi=@ = LET tou 
r=0= REM eric caberia 

5 RflNDOMIZE 

6 CLS = BEEP .5,0= PR INT INK 2; "romeo devra sauver .Juliette le Plus de fois 
P oss i b l es , en 10 cata.Pu 1 ta.9es = borme chance ! ! ! " 

8 PRINT AT 21,0; INK 1; FLASH 1; PAPER 7 a" PRESSEZ UNE TOUCHE ." = P 

RUSE 0= CLS 

10 REM tour 

11 LET x=20 = LET y=8 

15 PRINT AT 0,26; INK 5;"Ho="; tour 
20 PRINT RT 4,1; INK 1;"HUUU" 

30 FOR f=5 TÜ 21 

35 PRINT AT f,2; INK 1 ;"■■»' = NEXT f 

40 PRINT RT 21,10;"0"= PLOT 64,0= DRAW 37,16 

42 INK 3= PLOT 100,175= DRAW 0,-25= PRINT AT 3,12; "B"= INK 4 

45 LET z*INT <RND*ll>+7 

50 PRINT AT x,y;"Ê" 

55 PRINT AT z,7; PAPER 2; INK 6;"&" 

60 INPUT "entrez Poids ?(rnax 15 kilos)";P 

65 IF P<1 OR P>15 THEN GO T0 60 

66 LET tour=tour+l 

70 FOR f=3 TO 19= PRINT AT f,12; INK 3;"B"= BEEP .04,f*3/2= PRINT AT f,12;" "= 
NEXT f 

75 PLOT 64,0= DRAW ÜVER 1;37,16= PLOT 64,16= DRAW 37,-16 
80 PRINT AT x,y ;" " 

90 FOR f=l TO P= PRINT AT .. LET x=x-l= PRINT RT x,y;"e"= BEEP .05,x+5 = 

NEXT f 

100 IF x=z THEN PRINT AT x,y+3; INK 2;"F F F F"= FOR f=l TO 5= BEEP .1,10= BEEP 
.2,5= BEEP .1,10= BEEP .1,3= NEXT f= PRINT AT 0,0; FLASH 1; PAPER 1; INK 7;" 
bravo Juliette est sauvee "« FOR f=l TO 20= PAUSE 5= DUT 254,f= NEXT f= LET s 
core==score+l 

110 IF xOz THEN PRINT AT x,y;" "= FOR f=x TO 21= PRINT AT f,y;"D" = BEEP .04,f = 
PRINT AT f,y ;" "= NEXT f= PRINT AT 21,8;"C"= BEEP 1,-20 
120 IF tourOlO THEN CLS = GO TO 10 
125 CLS 

130 PRINT AT 0,9; INK 6;"résultats" 

135 IF score>hi THEN LET hi==score 

140 PRINT RT 5,0; INK 1; PAPER 7; FLASH 1;"SCORE ";score 
145 PRINT AT 7,0; INK 1; PAPER 7; FLASH 1;"HIGH SCORE ";hi 



125 









150 PRINT RT 21,0; INK 2;.PAPER 7; FLASH 1;" PRESSEZ UNE TOUCHE " : PR 

HSE 0= LET score=0 : LET toûr=0• GO TO 2 
1000 FOR f=USR 11 -3." TO USR "f"+7 
1010 REHO user • POKE f',user 
1020 NEXT f- RETURH 

1030 DATA 255, 169,255, 169,255.. 169, 169,255 
1040 DATA 126,60,60,126,126,110,110,126 
1050 DATA 0,0,0,0,0,24,126,255 
1060 DATA 128,192,224,224,224,192,192,128 
1070 DATA 56,40,146,124,16,56,40,108 

1080 DATA 102,255,255,255,127,62,28,8 _ 


COMMENTAIRES : 


Ligne 1 : initialisation des variables 
du jeu 

Ligne 6 à 8 : instructions du jeu 
Ligne 11 à 42 : dessin de la tour 
Ligne 50 à 55 : dessin de la tenetre 

- SPECTRUM 


Ligne 70 à 80 : chute du poids 

Ligne 90 : catapultage 

Ligne 100 s partie gagnée 

Ligne 110 : tin de partie 

Ligne 120 s test de compteur de tour 

Ligne 1000 à 1020 : routine de 

chargement des caractères 

Ligne 1030 à 1080 : DATAS des caractères 


REBOND SURPRISE 


Récupérez les balles qui tombent du haut de l'écran. 
Votre panier se déplace grâce aux touches 

5 et 8. 



1 REM 

Eric CHARTQN 1985 

###############################################*#######*#*####** 

2 PAPER 0 : BORDER 0 - INK 5= CLS = G0 SUB 100 

4 G0 SUB 9000 

5 DIM K32)= LET sc=0 : LET u=5* LET y = 10 

6 GO SUB 900 

7 PR INT AT 21,0 J FLASH 1; INK 3 J PAPER 5j"Wi score W 

3 PRIAT AT 0,0J PAPER 6 .: INK 2j" Eric CHARTON 1985 

10 IF INKEY$=" 8 " AND y<30 THEH LET y=y+l ; GO SUB 2000 

20 IF INKEY$="5" AND y>0 THEN LET y=y-l : GQ SUB 1000 

40 IF ?y=Q 3 0 R 0 y + l=o) AND u.=17 THEH BEEP 1,5* LET u.=l * GO SUB 900= GO SUB 7000 

50 GO TÔ 10 
100 DATA BIH 00000000 
110 DATA BIN 00011000 
120 DATA BIN 00111100 
130 DATA BIN 01111110 
140 DATA BIN 11111111 













z : PQKE IJSR 


"a"+k,z : NEXT k 


9020 PR INT RT e,Q; PRPER 4.;" 
9030 LET f=f-l^ NEXT e 


150 DRTR BIN 01111110 
160 DRTR BIN 00111100 
170 DRTR BIN 00011000 
200 FOR k=0 TO 7 : RERD 
300 DRTR BIN 01110000 
310 DRTR BIN 01111000 
320 DRTR BIN 00111100 
330 DRTR BIN 00011100 * 

340 DRTR BIN 00001100 
350 DRTR BIN 00001111 
360 DRTR BIN 00000111 
370 DRTR BIN 00000111 

400 FOR k=Q TO 7= RERD z = PQKE IJSR ,, b M +k,Z= NEXT k 

500 DRTR BIN 00001110 

510 DRTR BIN 00011110 

520 DRTR BIN 00111100 

530 DRTR BIN 00111000 

540 DRTR BIN 00110000 

550 DRTR BIN 11110000 

560 DRTR BIN 11100000 

570 DRTR BIN 11100000 

600 FOR k=0 TO ?■ RERD Z- F'OKE IJSR "c"+k,z ; NEXT k 
650 RETURN 

900 PR INT RT 17, y.: INK 3; "V" = RETURN 
1000 PR INT RT 17, y; INK 3 ; "V "s RETURN 
2000 PR INT RT 17, y-2; INK 3; " V" = RETURN 
3000 IF u=5 THEN LET o=INT <RND*31? = LET enc=l+INT <RND*7> 

3010 LET u.=u+l : PR INT RT u.-l,o; INK eïic; " RT = IF u.= 13 THEN LET u.= l : GO 

SIJB 9200 
3050 RETURN 

7000 IF e'nc=3 THEN GO TO 8000 

7085 IF enc=2 THEN LET score=-40 : GO TO 7015 

7810 LET score=encï10 

7015 PR INT RT 15, o J INK 4.; PRPER Qis. core- FOR 9=1 TO 30= NEXT 9 
7020 PR INT RT 15, o; " " LET sc=sc+score = F'RINT RT 21,15.: INK 1.: PRPER Si FLRSH 

1 ;" : ^ sc ! RETURN 

8000 PRINT RT 16, y j FLRSH 1; PRPER 0.: INK Si "Perdu" « FOR x=Q TO 43 : BEEP 1/200,x 
BEEP 1/100,x-S= BEER 1/150,x+7 
8010 NEXT x 
8020 CLERR = GO TO 4 
9000 LET f=21 : FOR e=0 TO 11 
9005 BEEP 1/90,f 
9010 PRINT RT f,0; PRPER 4;" 


9040 LET f=21 : FOR e=0 TO 11 

9045 BEEP 1/90,e 

9050 PRINT RT f,Q; PRPER 0.:" 

9060 PRINT RT e,0; PRPER 0.:" 

9870 LET t*=f“ 1 * NEXT e 
9080 RETURN 

9200 LET P =0 '• LET Ko+IM* FOR 1 = 1 TO 31 = LET P=P+Ki>= IF P =31 THEN GO TO 9300 

9250 RETURN 

9308 GO TO 8000 

9999 SflVE "balloons" LINE 1 


COMMENTAIRES : 

Ligne 2 : initialisation de l'écran 
Ligne 5 : initialisation des variables 
du jeu 

Ligne 7 à 8 : a-f-fichage du haut de 
l'écran 

Ligne 10 à 20 : test du clavier 
Ligne 100 à 200 : redé-f i n i t i on du 
caractère de la balle 
l-igne 300 à 400 : redé-f i n i t i on du 


caractère de la panière gauche 
Ligne 500 à 600 » redé-f i n i t i on du 
caractère de la panière droite 
Ligne 900 à 2000 i 
panière à l'écran 
Ligne 3000 à 3050 
balle à l'écran 
Ligne 7000 à 7020 
a-f-fichage 

Ligne 8000 à 9300 ! -fin de la partie 


a-f-fichage de la 
a-f-fichage de la 
calcul du score et 

















- SPECTRUM - 

NIMITZ 

Les réserves de carburant de votre Mirage 2000 
sont presque épuisées. 

Le porte-avion Nimitz est votre seul espoir de survie. 
Réussirez-vous à l'atteindre 
et à aponter 
sans trop de dégâts ? 

5 = gauche, 6 = bas, 7 = haut et 8 = droite. 



1 RESTORE » BORDER 0- PAPER 0= INK 4= CLS : REM eric 

2 FOR f=0 T0 21: prINT PAPER INT <RND*7>+1/" ^ r . c , 

PRINT AT f,RND*23; INK INT CRND*6)+li FLASH 1;"«NIMITZ* = BEER .01/+ ! NEXT f = b 

EEP 1,-10- GO SUB 2000 

3 BORDER 0 : PAPER 5 : INK 4= CLS 

5 FOR f=l TO 10= BEEP ,01/f: NEXT f : IMPOT "niveauX 1-6 )":■ 4 

6 IF q<1 OR 4>6 THEN GO TO 5 
? LET n=INT (20^4) 

10 FOR f=15 TO 21 ; PRIAT AT f,0; PAPER 1 i " 

EXT f 

15 LET vit=0= LET temPs=0 : LET fuel=50 
20 LET y=10: LET x=l 
LET b»10 

FR INT AT x,y ; INK 0;"=-" 


H 


25 

30 


35 LET temPs=temPs+l 
40 IF x=13 THEN GO SUB 1000 
50 BEEP .123,-30 

55 

56 

57 

58 
60 
70 
80 

90 IF 


PR INT AT x,y; INK 0; "B" ! FOR f=l TO 2= NEXT f 
PRINT AT 21,10; INK 7; PAPER 2; INK 0;"fuel■")fuel 
PRINT AT X,y ;" " 

IF fuel=10 THEN PRINT AT 21,16; PAPER 2;" " 

IF INKEY$="5" THEN LET y=y-l 
INKEYS="8" THEN LET y=y+l 
THEN LET x=x+l 


IF 

IF INKEY$=* 


6 " 


INKEY$="7" THEN LET x=x-l 
95 LET fu.el=fuel-l 
100 IF vit=ïï THEN LET vit=0= 

110 IF y<=l THEN LET y=l 
120 IF x>=13 THEN LET x=13 
130 IF y>=28 THEN LET y=28 


GO SUB 200 


= PRINT AT 14,y; INK 2; PAPER 5; "G": BEEP .08,-15: PRINT Af 14,y; INK 2; PAPER 

_ . — ■— r-. r— ai il r— f-.r~ ■ r< . . 1 T . I IrvT 1* • L_'L-II '. U 1.1 


» 

0 : 

5; "H 


BEEP .01,-20: PRINT AT 14,y; PAPER 5;" 
GO TO 1 

140 LET vit=Vit+1 
150 GO TO 30 

210 PRINT AT 13,b," "= PRINT AT 14,b;" 

230 LET b=INT C RND*20 >+5 
235 FOR f=l TO 3 


» : FOR f=l TO 300: NEXT f> PAUSE 0 
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40 PR I HT INK 0; FIT 13,b+4; INK 2.; BRIGHT 0.; "J" = PR INT RT 14, b; 
42 NEXT f« RETURN 

00 IF RTTR <x+l,y+l>=40 THEN PRINT RT 21,0; PRPER 7; FLRSH 1; 
gf»iP s = FOR f-1 TO 350= N EX T f= GO TO 1 
1100 RETURN 

2000 FOR f=USR "a" TO USR "h"+7 
2020 REND user= POKE f,u.ser 
2030 NEXT f: RETURN 

2040 DATA 255,3,128,255,171,255,255,60 
2050 DRTR 28,8,123,255,171,255,255,60 
2060 DRTR 255,127,63,31,15,7,3,1 
2070 DRTR 255,24,252,248,240,224,192,128 
2080 DRTR 255,255,255,85,255,255,255,255 
2090 DRTR 42,129,43,123,43,28,41,82 
8000 DRTR 0,0,42,64,42,64,42,0 
3010 DRTR 0,0,0,24,24,0,0,0 


INK 0;" 
INK 1," 


CÊËËËD" 
ternP s = " ; t 


lENTAI RES : 

Ligne 1 : initialisation de l'écran 
Ligne 2 ! affichage de la présentation 
Ligne 5 à 6 : choix du niveau de jeu 
Ligne 12 à 25 : initialisation des 
viriables du jeu 

Ligne 59 à 90 : tests clavier pour les 

déplacements de l'avion 

Ligne 100 à 130 : tests de limite de jeu 


test et affichage du 
déplacement du 


Ligne 135 à 210 
crash 

Ligne 220 à 242 
porte-avion 
Ligne 1000 à 1100 : test de collision 
Ligne 2000 à 2030 : routine de 
chargement des caractères 
Ligne 2040 à 3010 : DATAS des caractères 
graphiques 


SPECTRUM 


GHOST PAINTER ! 

Des fantômes se ruent sur vous 
dès que vous vous mettez à repeindre une pièce. 
De plus, vos réserves de peinture 
s'épuisent à toute allure, 
vous obligeant à refaire le chemin déjà parcouru. 
Utilisez les touches 

5 = gauche, 6 = haut, 7 = bas et 8 = droite 
si vous voulez vous en sortir. 



REM *********************** 
REM * TILT ZX SPECTRUM * 
REM *********************** 

REM_ 

REM VRRIRBLES POSITION DU 
LET X=ll= LET Y=23 

REM_ 

REM VARIABLES POSITION DE 
LET Xl=10= LET Y1=10 
LET X2=18 = LET Y2=18 
LET X3=4 = LET Y3=6 

REM_ 

REM INITIALISATION DU TEMPS 
LET T=0 
LET 3C=0 
LET V=3 

REM_ 

REM AFFICHAGE TERRAIN 
GO SUE: 9000 

PRINT RT 1,0; INK 6;"- 

PRINT RT 21,0; INK 6;" - 

FOR F=2 TO 20= PRIAT RT F,@; 

REM_ 

REM TEST CLAVIER + TESTS 


JOUEUR 


L'ORDINATEUR 


ET DU SCORE 


INK 6;"=";RT F,31; INK 6;"- 


NEXT F 


COLLISIONS 
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210 LET RMINKEY* 

Il 2 if T f£"" 1 THEN PR INT HT 0,0.= INK 4; "SCORE : " ; SC; INK 5;" TEMPS"; T/ INK 3;" V 
IES : V;" " 

213 IF R$="" THEN GÜ TO 235 

214 LET SC=SC+1 

ÜI Z KS/ÏhEN^rSt^Æv/ÏnK^I’pRPEP 0; " - LET SC^C-I H» SO0 
•:?i7 if fxi=X riR X2*X OR X3=X> HND CY1=Y OR Y2=Y OR Y3=Y> THEN IF- T>=40 THEN BEE 
p 1 -U: LET V=V-1= LET T=0 = IF V=-l THEN GO TO 2000 
220 LET X=X+<fl*="6" HND flTTR < X+l, Y X >70 >-< R$="7" RND RTTR CX-1,0% ; V0> 

225 LET Y=Y+< R$="8" RND RTTR <X, Y+l >070 >-< R*="5" RND RTTR < X, l'-l ></< 0 > 

231 IF 1 X=11 T RND Y Y=28 K THEN*LET T=0= FOR F=0 TO 40: BEEP .001,F: BEEP ,002,F+10. 

M 235 IF T>20 THEN PRINT RT XI, Yl; INK 2; F'RPER 0; " "jRT X2,Y2; " " ; RT X3,Y3;" " ! 
GO TO 240 


236 

GO TO 210 



240 

IF INT CRN0T3>=1 

THEN 

LET 

<:xi- 

1, Yl >=66 > 



241 

IF INT <RND*3>=2 

THEN 

LET 

< X2- 

■ 1,Y2>=66> 



242 

IF INT <RND*3>=0 

THEN 

LET 

< X3- 

■1, Y 3 >=66 > 



245 

IF INT <RND*3>=1 

THEN 

LET 

<X1, 

Yl—1>=66> 



246 

IF INT <RND*3>=2 

THEN 

LET 

<X2, 

Y2-1>=66 > 



247 

IF INT <RND*3>=0 

THEN 

LET 

< X3, 

Y3-1>=66> 



250 

PRINT RT XI,Yl; 

INK 4 

; "II" 

251 

PRINT RT X2,Y2; 

INK 3 

;"tt" 

252 

PRINT RT X3,Y3; 

INK 1 

;" 0 !" 

500 

GO TO 210 




2000 REM--- 

|g10 FOR F=0TO'30 3TEP4 : PRINT RT X,Y; INK 6;"»"= BEEP .1,F= PRINT RT X,Y; INK 
"CC" : BEEP . 1,F+10= NEXT F 
2020 PROSE 0= RUN 

9000 REM _ 

9005 REM REDEFINITION DES CHR$ 

9010 FOR F=USR "R" TO USR "E"-l 
9015 RERD R 
9020 POKE F,R 

9030 ortr 25F. .129,129, 255,255,129,129,255,60,66,255,66,122,122,66,255,56,108,254 
,30J 62,126,î 24,56,56,126,255,201,201,255,251, 209 
9035 BORDER 1 ; F'RPER 0 : I NK 2 : CLS 

9040 CLS _ 

9050 PRINT RT 10,27; INK 6; "-■" 

9055 PRINT RT 12,27; INK 6;"-" 

9060 PRINT RT 11,30; INK 3; FLRSH 1;"@" 

9070 POKE 23562,1= P QKE 23561,8: POKE 23609,10 

9100 RETIJRH _ • 


COMMENTAIRES : 

Ligne 10 à 35 : présentation du jeu 

Ligne 40 à 50 : initialisation des 

variables du joueur 

Ligne 55 à 65 s initialisation des 

variables des -fantômes 

Ligne 70 à 85 : initialisation du temps 

et score 


Ligne 90 à 115 : a-f-fichage du terrain 
Ligne 205 à 500 : test clavier et test 
des col 1isions 

Ligne 2000 à 2020 : test de -fin de 
partie 

Ligne 9000 à 9025 : redé-f in i t i on des 
caractères 

Ligne 9030 : DATAS des caractères 
graphiques 

Ligne 9035 à 9100 : a-f-fichage écran 
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ORIC 1/ATMOS 



LAS VEGAS 

Retrouvez le grand frisson des salles de jeux 
et empochez'la monnaie grâce à votre fidèle ordinateur. 

Pour lancer le jeu, 

il suffit de presser la barre d'espace. 



10 CL3 : PRPER0 : INK3 

15 POKE 618,10 

20 P= 10 =PLOT 18,1,"10" 

25 IF PEEK<#8708>=#30 THEH 35 
28 FOR 1=1 TO 5 : REHDfl : NEXT 
30 FOR 1=46856 TO 47063 : REflD fl ; POKE I, fl =NEKT 
135 M$ _.. » : N$=CHR$< 3 > 

40 FISC 1 >=CHR3K 7 >+" i J " = AS* 2 >=CHR$< 7 >+"k 1 " 


flî’s 4 >=CHR$< 6 >+"9h" 

6 >=CHR$< 2 >+"wx" 
fl$< 8 >=CHR$< 5 )+"£t" 
AS* 10)=CHR$< 1 )+"oP" 
;=fl$< I >+N$ NEXT 


PLOT 1,25,"d" 

NEXT 

PLOT 18,I,"b" : HEXT 


50 fl$< 3 >=CHR$< 6 ?+"ef" 

60 fl$C 5 )=CHR$< 2 >+"ij.v" 

70 fl*< 7 >=CHR$<: 5 )+ " 4 r " 

80 ASC 9 >=CHR9K 1 >+'W 
90 FOR 1 = 1 TO 10 : fl$( I 
95 REM 

100 REM DECOR 
105 REM 

110 FOR 1=2 TO 18 : PLOT 1,5,"c" 

115 PLOT 1,9,"c"=PLOT 1,16,"d" 

120 FOR 1=6 TO 24=PLOT 2,1,"a" 

130 PLOT 5,7,1=PLOT 15,7,3=PLOT 6,7,"LAS VEGAS" 

135 PLOT 4,23,20=PLOT 9,23,16=PLOT 10,23,8 
140 PLOT 5,23,"20C"=FOR1 = 19 TO 21=PLOT 6,1,"!"= NEXT 
145 PLOT 1,1,7=PLOT 1,3,4=PLOT 23,1,3=PLOT 23,3,3 
147 PLOT 2,1,"PIECES DE 20C="=PLOT 2,3,"GAIN=" 

150 Z$=CHR$< 255 ) 

160 FOR 1=10 TO 15=PLOT 7,I,Z$=PLOT 12,I,Z$=PLOT 5,I,3=PLOTIO,I,3 
165 PLOT 15,1,3NEXT 

170 PLOT 19,18,"cca"= PLOT 19,19,"dda" 

180 FOR 1=13 TO 17=PLOT 21,I,"a"*NEXT 

190 PLOT 19,12,1= PLOT 22,12,3 = PL0T 20,12,"az" 

200 PLOT 11,22,"\cc^"= PLOT 11,17,"cccc"= PLOT 11,21,"dddd" 

205 F0RI=18 TO 20=PLOT 11,1,"a b"=NEXT 

210 FOR 1=0 TO 25 = PLOT 24,1, "b" =PLOT 38,1,"a"= NEXT 

220 FOR 1=0 TO 20 STEP 5 

230 PLOT 25,1,"ddddddddddddd"= NEXT 

240 PLOT 25,25,"ccccccccccccc" 

250 PLOT 26,2,"ijiJiJ 3>50"-PLOT 26,3,"klklkl 2>10" 


► 
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260 PLOT 26..?, "efefef 3>40" = PLUT 26, S, "9h9h9h 2>04" 


3 >20" 
3> 10" 


PLOT 26,13,"wxwxux 2>03" 
PLOT 26,13,"ststst 2>02" 
PLOT 26,23,"oPoP oP 2 > 01" 


270 PLOT 26,12, "u vu vu. v-3 >30 
280 PLOT 26,17,"qrqrqr 3 
290 PLOT 26,22, "rnnmïWi'i 3 
300 FOR 1=2 TO 22 STEP 5 

310 READ fl*PLOT 25,I,fi ; PLOT 25,1+1,fl : PLOT 32,1,3 
',6,2,5,1 


PLOT 32,1+1,3= NEXT 


^ H EX 


400 

410 

420 

430 


320 DATA 
330 REN 

340 REM ACTION 

350 PLOT 8,3, MS : PLOT 8,3, STRSC GA > : PLOT 3,23,12 

352 IF GA<' >0 THEN FOR 1 = 1 TO GA : PING * WAIT 40=NEXT 

353 GET RS: PLOT 3,23,8 = F0RX=3T013STEP5 = PLOT X,12,MS * PLOTX,13,MS 
T 

354 C=0 : P=P-1 : IF P<0 THEN 650 

355 PLOT 18, 1, MS : PLOT 18,1, STRSC P > 

356 FORI=200TO10STEP-10 = SOUND 1,1,10 = NEXT*SOUND 1,1,0*WAIT 40 
358 Gfl=0 : PLOT 8,3,MS;PLOT 3,3,STRSCGA) 

360 FOR X=3 TO 13 STEP 5 
370 C=C+1 

380 HC C >= I HTC RNDC 1 )# 15 >+1 * H=H< C ) 

390 IF H<6 THEN HCC 5=9 

IF H >5 AND H< 10 THEN HCC >=7 
IF H>9 AND H<13 THEN HCC)=5 
IF H>12flHD H<15 THEN HCC 5=3 
IF H=15 THEN HCC 5=1 
435 W=5 

440 FOR T=1 TO 20 

450 W=W+i:G=INTCRNDC1)*5)+l : G=G*2 

460 PLOT X,12,fi$CG-1) : PLOT X,13,ASC G) 

465 SOUND 1,C G+9>*10,10 

470 WAIT W * PLOT X,12,MS : PLOT X,13,MS : SOUND 1,1,0*NEXT T 
475 PLOT X,12, ASC HC C ) > : PLOT X, 13, ASC HC C )+1 ) 

480 SOUND 1,1,0 •• NEXT X 
490 REM 

500 REM CALCUL DES GAINS 
510 IF HC1)=HC2 > AND HC 2 )=HC 3 ) THEN 600 
520 IF HC1X>HC2) AND HC2X>HC3> THEN 350 
525 REM 2 EGAUX CDEBUT OU FIN) 

530 Gfi=C 11 -HC 2 > V2 : IF HC 2 >= 1 THEN Gfl= 10 
535 F-F'+GA 
540 GOTO 350 

600 REM 3 EGAUX r ... T , 

620 IF HC C )=1 THEN FOR 1 = 1 TO 10 ! FORJ=60TQ90 : SOUND 1,J,10*NEXT J,I 

PING 

630 Gfl-C 11 -HC C > ):*:5 : P=P+Gfl 

640 GOTO 350 

650 REM FIN DU JEU 

655 PLOT 1,4,2 = PLOT 2,4,12 

660 PLOT 3,4,"PLUS UN SOUS !"=PLOT 16,4,8 = PLOT 17,4,3 
670 GET RS = RUN 

5000 DATA 48,43,48,48,48,48,48,48 
5010 DATA 3,3,3,3,3,3,3,3 
5020 DATA 0,0,0,0,0,0,63,63 
5030 DATA 63,63,0,0,0,0,0,0 
5040 DATA 0,7,4,2,1,3,7,7 
5050 DATA 0,56,8,16,32,48,56,5b 
5060 DATA 7,15,15,15,31,63,63,1 
5070 DATA 56,60.,60,60,62,63,63,32 
5030 DATA 0,0,63,63,0,0,49,42 

5090 DATA 0,0,62,62,0,0,12,42 _ 
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5180 


DATA 51,42,50,0,0,63,63,0 
DATA 44,42,42,0,0,62,62,0 
DATA 16,9,11,1,4,10,9,8 
DATA 0,32,32,0,0,28,62,58 
DATA 4,2,7,14,15,15,7,0 
DATA 62,28,0,32,32,32,0,0 
DATA 0,0,1,1,0,14,31,63 
DAT A 0,48,48,32,0,56,60,62 
DATA 63,63,63,63,63,31,14,0 


5190 DATA 56,48,56,62,62,60,56,0 

5200 DATA 1,1,3,5,5,5,5,3 

5210 DATA 16,16,56,20,16,16,16,56 

5220 DATA 1,1,1,5,3,1,1,0 

5230 DATA 20,20,20,20,56,16,16,0 

5240 DATA 1,3,7,7,7,3,1,0 

5250 DATA 56,60,38,54,62,60,56,48 

6000 DATA 7,6,2,5,1 


COMMENTAIRES : 

gne 25 à 30 : redéfinition des 
caractères 

Ligne 35 à 90 : chargement des dessins 

dan s A* <) 

Ligne 95 à 320 : dessin du décor 
Ligne 352 : bruitage en cas de gain 
Ligne 353 à 358 : introduction de la 

pièce 

Ligne 360 à 480 : mouvement des 3 
roui eaux 

igné 370 à 430 : choix aléatoire du 


dessin à afficher lorsque le rouleau 
s'arrête 

Ligne 440 à 470 : mouvement d'un rouleau 

: affichages successifs de dessins 

choisis aléatoirement 

Ligne 490 à <S40 : calcul des gains en 

•fonction du nombre de dessins similaires 

Ligne 650 à 670 : -fin de partie 

Ligne 5000 à 5250 : DATA pour la 

redéfinition des caractères 

Ligne 6000 : DATA pour la couleur des 

dessins 


ORIC 1/ATMOS 


MEMORY 


Retrouvez dans un tableau les différentes formes de couleurs 
seulement visibles deux par deux. 

Pour jouer, entrez simplement les coordonnées 
de la case à jouer. 


5 PING 

10 T EK T = CL 3 PAPER0 : INK3 
12 PQKE 618,10 

IF PEEKC46308>=Q THEH 50 
FfiR 1=46808 T0 47063 : READ 
REM == GRILLE == 


L- 


20 

30 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

145 

150 

160 

170 

180 

200 

202 

205 

210 

220 

230 

240 


D:PQKE I,D: HEKT 


C$=CHR95< 255 > 

FOR J=5 TO 17 STEP3 : FOR 1 = 10 T0 30 
PLOT I,J,C# : HEKT I, 

FOR 1=10 T0 30 STEP5 : F0RJ=6 T0 16 
PLOT I,J,C$■HEKT J,I 
FOR J=6 T0 15 STEP 3'FOR 1=14 T0 
PLOT I,J,3'PLOT I,J+1,3=HEKT I,J 
PLOT 12,4,"1 2 3 4" 

PL 0T 9,6,"T"* PLOT 9,9,"2"=PLOT 9. 

C=0 : C$="56713212" 

FOR 1=91 T0 122 STEP 4 
C=C+1 ^ D=VAL< riID$< C$, C, 1 > > 

ASK C >=CHR$( D )+CHR$<. I HCHR3K 1 + 1 > 

B*< C>=CHR$<D >+CHR$<1+2 >+CHR$C1+3> = HEKT 
REM == REPARTITION == 

PLOT 2,2,"UH IHSTAHT SVP..." 

FOR J=1 T0 2 
FOR 1=1 T0 8 
K= I HT■: RHD< 1 >*4 >+l 
Y-1 HT< RHDC 1 >*4 >+l 
IF C<K,Y ><>0 THEH 220 


29 STEP 


12,"3" : PLOT 


l* 5 


sJ, 


•• 4 • 
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250 CX X .* Y >= I : N EX T ■ H EX T 
260 PLOT 2,2," 

270 REM == DEPART == 

280 E=E+1 

290 PLOT 2,24,STR$CE }+" ESSAI=" 

295 FOR J=1 TO 2 
300 GET X$■X=VRLCX$ ) 

310 IF X<1 OR X>4 THEN 300 
315 PLOT 15,24, X$ : G 1 ' J >=X 
320 GET Y$=Y=VALCY$> 

330 IF Y<1 OR Y>4 THEN 320 
340 PLOT 16,24,Y$ : H<J)=Y 

350 C=C(X,Y ) : IF C=0 THEN PING = PLOT 15,24," "=GOTO 300 

352 ÏF J=2 AND GC1>=G<2> AND HC1>=HC2> THEN PING = PLOT 15,24," 

TO 300 

355 X=5*X+6^ Y=3#Y+3: MC J >=C= XC J >=X•YC J)=Y 
360 PLOT X,Y,AÏC C ) : PLOT X,Y+1,B*CC) 

365 FOR 1=50 TO 5 STEP-1 : SOUND 1,1,12 : NEXT ; SOUND 1,1,0 
370 PLOT 15,24," " 

380 NEXT J 

390 IF MC 1 MIC 2 > TH.EN 450 
400 SOUND 1,5555,12 
410 NAIT 90•• SOUND 1,1,0 
420 FORI=1T02 ; PLOT XCI >,YCI )," 

430 PLOT -XX I >, YC I >+1, " 

435 NEXT 
440 GOTO 270 

450 FORI=60TO90 : SOUND1,I,12 : NEXT 

455 FORI=9OTO60STEP-1=SOUND 1,I,12 : NEXT : SOUND 1,1,0 
460 FORI=1T02 : CCGCI > ,HCI>M3 : NEXT 
470 R=p+1=IF P<8 THEN 270 

47fi :=;m IND 1 • 100,12 = WAIT 50 : SOUND 1,300, 12 : NAIT 5ü = SOUND 1,200, 12 


478 NAIT 60 : SOUND 1,1,0 

4P0 PLOT 2,24,"TROUVE EN"+STR$CE>+" ESSAIS." 
■•iQPi PLOT 2, 26, "VOULEZ-VOUS REJOUER C O-J-l > ?" 
500 GET R$ 

510 IF R$="H" THEN END 
515 IF R$< >"0" THEN 500 
520 RUN 

5000 DATA 0,1,2,4,8,16,38,36 
5010 DATA 48,8,16,19,36,40,44,44 
5020 DATA 44,32,17,10,5,14,16,0 
5030 DATA 56,48,16,48,32,0,0,0 
5040 DATA O,7,4,2,1,3,7,7 
5050 DATA 0,56,8,16,32,48,56,56 
5060 DATA 7,15,15,15,31,63,63,1 
5070 DATA 56,60,60,60,62,63,63,32 
5080 DATA 0,0,0,0,15,31,63,56 
5090 DATA 0,0,0,0,60,62,63,7 
5100 DATA 51,7,14,12,12,14,31,63 
5110 DATA 51,56,28,12,44,28,62,63 
5120 DATA 16,9,11,11,4,10,9,8 
5130 DATA 0, 32,32,0,0,28,62,58 
5140 DATA 4,2,7,14,15,15,7,0 
5150 DATA 62,28,0,32,32,32,0,0 
5160 DATA 0,0,1,1,0,14,31,63 
5170 DATA 0,48,48,32,0,56,60,62 
5180 DATA 63,63,63,63,63,31,14,0 
5190 DATA 56,48,56,62,62,60,56,0 
5200 DATA 1,1,3,5,5,5,5,3 
5210 DATA 16,16,56,20,16,16,16,56 
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D Fl T Fi 1, 1,1,5,3, 1, 1,0 
DATA 20 20,20,20,56,16, 16,0 
DRT Fl 0,61,39, 63, 3, 3, 6,12 
DATA 0,47,57,63,48,48,24,12 
DATA 12,13,63,35,63,61,0,0 


5270 DATA 12,44,63,49,63,47,0,0 

5280 DATA 15,0,1,0,27,27,0,13 
5230 DATA 60,32,0,32,27,27,0,44 
5300 DATA 13,0,3,3,0,0,0,0 
5:-: 10 DATA 44,0,24,24,0, 48, 48,0 


MENTAIRES : 


30 


redéf i n i tion des 


Ligne 20 à 
caractères 

Ligne 50 à 140 : dessin de la grille 
Ligne 145 à 180 : mise en variables des 
objets, avec leur couleur 
Ligne 200 à 260 : répartition des objets 


Ligne 355 à 
Ligne 390 : 
été trouvé 
Ligne 400 à 
différents, 


370 : affiche l'objet 
teste si un couple a 


déjà 


: un couple a été 
jour du score et 


: saisie et affichage de 


dans la grille 
Ligne 270 à 340 
|a case choisie 

Ligne 350 à 352 : tests d'erreur : 2 
fois les memes coordonnées ou couple 
déjà trouvé 


440 : les 2 objets sont 
on les efface et on passe 
l'essai suivant 
Ligne 450 à 470 
=> bruit, mise à 
grille 
Ligne 475 
trouvés : 
autre partie 

Ligne 5000 à 5310 : DATA pour 
redéfinition des caractères 


trouvé 
de 1 a 


à 520 i les 8 couples ont été 
affiche le score et propose 


OR1C 1/ATMOS 


MUSIQU’ORIC 


Découvrez de nouvelles possibilités sonores 
et composez vos propres mélodies. 

Utilisez la flèche de droite pour augmenter le volume et 
la touche "a" pour le diminuer. 

La flèche vers le bas permet de passer directement à 
l'octave supérieure et celle de gauche à l'octave inférieure. 
"Slash" lance l'enregistrement de la note sur laquelle vous 
vous trouvez, vous permet d'écouter 
vos œuvres et "esc” fait le bilan de vos prestations... 


5 DIM PC36>,EC 1000 > 

6 P LA 7,0,0,0 

10 CLS ; FQKE 618,10 
12 RESTORE 
15 N=10 : 0=3 : V=9 
28 PAPER4 : IMK0 

21 PLOT 3,5, " OCTAVE = " = PLOT 10,5, STR*< 0 

PLOT 13,1,"dd MUSIQUE dd"-PLOT 13,2,"dd MUSIQUE dd" 

24 PLCIT2,1,10 = PLOT 2,2,10 = PLOT 0,1,19 = PLOT 0,2, 19 = PLOT l,2,0 = PL0T1, 

1,0 

25 PL0T32,12,STR$CV > 

28 PLOT30,10,17=PLOTS1,10,"VOLUME"=PL0T38,10,20 

29 PLOT 2,5,18=PL0T13,5,20=IF IN=1 THEN 55 

30 FOR I=46856T046895 = READ C = PQKEI,C = NEXT 

40 DATA 1,1,1,1,1,1,1,1,32,32,32,32,32,32,32,32,63,63,63,63, 63,68,6 

3.63 

45 DATA 4,6,5,4,28,36,36,24,16,8,5,14,30,29,10,4 

46 F OR1 = 1 TO 36 STEP 3 

47 READ Y ,, Y, Z = PU = PC I+1 >=Y : PC I +2 )=Z 

50 NEZT 

52 DATA 9 , 18,32,10,14,99,12,18,32,13,14,99 

53 DATA 15,18,32,18,18,32,19,14,99,21,18,32 

54 DATA 22,14,99,24,18,32,25,14,99,27,18,32 
I 55 FOR1=10 T0 19 
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60 PLOT S, 1,23 = PL0T29,1,20 
70 NEXT 

75 FOR 1=10 TO 15 
80 PLOT 10,1,"ce ce ab" 

90 PLOT 19,1,"ce ce ce" 

100 NEXT 

110 FOR 1=16 TO 19 

120 PLOT10,I,"ab ab ab ab ab ab" 

130 NEXT 

132 PLOTS,8," 02 @3 05 06 07" 

134 PL0T9,21,"Q M E R T Y U" 


135 

PLOT 9,23 

,"DO RE MI FA SO LA SI" 

14Û 

REM- 

DEBUT 

— 

150 

GET m 



151 

IF 

N$=" " 

THEN 

MUS IC 1,0,1,0 = GOTO 1! 

152 

IF 

N$=CHE$(27 > 

THEN 900 

153 

IF 

N$="\" 

THEN 

800 

154 

IF 

N$="/" 

THEN 

GOSUE 700 

155 

IF 

N$="Y" 

THEN 

N=10 ; GQTO200 

160 

if 

N$="7" 

THEN 

N=11 : GQTO200 

161 

IF 

N$="Q" 

THEN N=1 : GOTO200 

162 

IF 

N$="W" 

THEN 

N=3^ GOT0200 

163 

IF 

N$="E" 

THEN 

N=5=GOT0200 

164 

IF 

N$="R" 

THEN 

N=6:GOT0200 

165 

IF 

N$="T" 

THEN 

N=8 = GOT0200 

166 

IF 

N$="2" 

THEN 

N=2 = GOTO200 

167 

IF 

N$="3" 

THEN 

N=4=GOT0200 

168 

IF 

N$="5" 

THEN 

N=7=GOT0200 

169 

IF 

N$="6" 

THEN 

N=9 : GOT0200 

170 

IF 

N$="U" 

THEN 

N=12 : GOTO280 

171 

IF 

N$="C" 

THEN 

L=L-3 : G0T0838 

172 

IF 

N$="Z" 

THEN 

L=0^ G0T0838 

175 

IF 

N$=CR$(8 > THEN 0=0-1=GOSU8500 

180 

IF 

N5i=CHR$( 10) 

THEN 0=0+1= GOSUB500 


182IF M$=CHR$(11> THEN V=V-1=GÛSUB600 
184 IF N$=CHR5K 9 > THEN V=V+1= GO3UB600 
190 GOTO 150 
200 MUSIC 1,0,N,V 

202 PLOT X,Y,Z 

203 M=3*N~2 


204 

205 

206 
208 
210 
500 
510 
520 
540 

545 

546 
550 
600 
610 
620 
630 


X=P< M > : Y=P’- M+1 ) •• Z=P< M+2 ? 
PLOT X,Y,"e" 

IF F'EEKX 520 >056 THEN 206 
MUSIC 1,0,N,0 

GOTO 150 

REM-OCTAVE- 

IF OK0 THEN 0=0 
IF 0>6 THEN 0=6 
PLOT10,5,STR$< 0 > 

PLOT10,5,0 
MUSIC 1,0,N,V 
RETURN 

REM - VOLUME- 

IF VMS THEN V=15 
IF V<0 THEN V=0 



PL0T32,12," "^ PLOT 32,12,STR$<V> 


640 MUSIC 1,0,N,V 
650 RETURN 


700 REM-JOUE- 

701 IF L<=0 THEN RETURN 
705 FOR 1=3 TO L STEP 3 
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708'0=E<I> : N=E<1 + 1>:T=E< 1+2 > 

709 IF T=0 THEN MUS IC 1,0, 1 , Ü : MH IT 40 : GÜT0 760 

710 MUSIC 1,0,N,V 

715 PLOT 10,5, STR$'.. O > : PLOT 10,5,1 



755 NAIT T = MUSIC 1,1,1,0 
760 NEXT 
780 RETURN 

800 REM - ENREGISTRE - 

802 T=0 : PLOT 30,0,"C N B P R"'PLOT 23,0,7 

805 MUSIC 1,0,1,0 

806 PLOT 2,0,STR$<L/3> 

810 L=L+3 : IF L>=990 THEN PRINT"STOP" 

820 E(L >=0^ E<L+1>=N: PRINTCHR$<30 > : PRINT : P 
825 GE T : IF Z$="0 M THEN T=0 = GOTO836 
828 FOR 1=30 TO 38 STEP 2'SC=SCRN<I,0) 


829 IF SC=flSC<Z*> THEN PLOT 1,0, CHR$'-. SC+128 > ; GOTO 835 

830 NEXT■PING : GOTO 825 

835 I =■: I -30 >/2+1 ' T= IT20 

836 E< L..+2 >=T 

838 PLOT 2,0,” "'PLOT 2,0,STRSL L/3> 


R40 GOTO 150 

850 REM - RESTITUTION - 

900 CLS : PRPER0 : INK2 

905 NUSIC 1,0,1,0 

910 FOR 1=3 TO L STEP 3 

320 Q:=ec; I > : N=E< 1 + 1 > : T=E< 1+2 > 

930 pRINT"OCT : "; O;" NOTE•"; N;" DUREE : ; T 
940 GET Z$ 

950 NEXT 

955 PRINT : PRINT"E FIN 1 "=PRINT 
960 PRINT“ENCORE <Q/N)"i : GET R$ 

970 IF R3î="0" THEN 900 
980 IF R$="N" THEN 1000 
985 PRINT 
P90 GOTO 360 

1000 RR I NT = PR I NT = INPIJT " RETOUR fiU PROGRAMME ( O/N ) " i R$ 

1010 IF R$="N" THEN END 

1015 IF R$="O" THEN IN=1 : CLS : GOTO20 

102 CLS : GOTO1000 


Touches s volume + fort: -> / - fort : 


<- 

enregistre la note sur laquelle on se 
trouve : 

durée de la note enregistrée : croche, 
noire, blanche, bpointée, ronde, 

0 =si 1 ence 
écouter : / 

efface : la dernière note : 5 toutes 

les notes : Z 

fin et bilan : ESC 


COMMENTAIRES : 


octave + :f 1 èche vers le bas / 


Ligne 0 à 135 : initialisation, décor et 
redéfinition des caractères 
Ligne 150 à 190 : saisie des touches 
Ligne 175 à 180 : modification de 
1 'octave 

Ligne 182 à 184 : modification du volume 

Ligne 200 à 210 : joue la note et 

aff i che la main 

Ligne 500 à 550 : gestion de l'octave 

Ligne 600 à 650 : gestion du volume 

Ligne 700 à 780 : joue le morceau 

enregistré 

Ligne 800 à 840 : enregistrement d'une 
note 

Ligne 850 à 1020 : affiche les octaves, 
notes et durée du morceau 


► 
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- ORIC 1/ATMOS - 

CARAMBOLAGE 

Au volant de votre bolide, 

parcourez un labyrinthe sans jamais entrer en collision avec 

une autre voiture. 

pour vous diriger, utilisez les quatre touches d'édition. 



5 POKE 613,10 

10 X1 8 : Y- 18 : V$= "b " •• fl=0 = B=0 = Q= 1 : W=0 

12 M=19 : N=5 : U*="d" = G-1= H-0 = P$=" " 

13 RESTORE 

15 FOR 1=46856 TO 46887 : RERDC : POKEI,C 1 HEXT 
18 CL S = PHPER0 •• IHK3 = PING 
20 PRIHT : PRIHT : FRIHT 
25 PLOT 1,@,7=PLOT 1,1,2 
30 PLOT 13,0,"CARAMBOLAGE" 

35 PLOT 1,1,2 = PLOT 12,1, -" 

39 GOTO 100 

40 IF V$="a" THEN RETURN 

41 IF N>Y RND SCRN<M,N-1X>255 THEN N=H-2 : RETURN 

42 IF N<Y AND SCRN<M,N+lX>255 THEN N-N+2 : RETURN 

44 RETURN 

45 IF V$=b" THEN RETURN 


46 IF M<X AND SCRN< M+l, N X >255 THEN M=M+2 : RETURN 

47 IF M >X HND SCRN<H-l,N ><>255 THEN M=M-2 = RETURN 

48 RETURN 

50 X=X-Q : Y=Y-t , l : IF V=98 THEN 70 

55 H=@:V$="b" = IF SCRNCX+1,Y>=255 THEN Q=-1= RETURN 
60 Q=l=RETURN 

70 Q=0 : V$= ": IF SCRN<X,Y+1>=255 THEN W=-l : RETURN 
80 W=1 : RETURN 


85 IJ=flSC< IJ$ > : IF IJ=100THEN 90 

86 H=0 : U$="d"* IF SCRNCM+l,H>=255 THEN G=-l=RETURN 
88 G=1 : RETURN 

90 G=0 : IJ$="c" = IF SCRN( M, N+l >=255 THEN H=-l : RETURN 
95 H=1 : RETURN 


100 RE fl == PARCOURS == 


120 POKE 853,250 

140 D=3 : F=4 •• G=31 = H=21 = C$=CHR$< 255 > = J=5 
145 FOR 1=1 TO J 

150 FOR X=D TO D+G ^ PLOT X,F,C$ = PLOT X,F+H,C$ : NEXT 
160 FOR Y=F+1 TO F+H:PLOT D,Y,C*=PLOT D+G,Y,C*=NEXT 
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h70' D=D+2 : F=F+£ = G=G-4=H=H-4 = NEXT 
175 IF C$="." THEN 190 

180 0=4 = F=5•G=29*H=1 9■ C$="."=J=4 = GOTO 145 

190 PLOT 12,14,"SCORE : " : PLOT 12,16,"HI-SC =" : PLOT 18,16,STRÎK HI > 

195 C$=" " = PLOT 25,14,3 : PL0T25,16,3 

200 FOR 1=5 TO 11=PLOT 17,I,C$ : NEXT 
210 FOR 1 = 18 TO 24 : PllOT 17,1, C$ : NEXT 

215 c$=" 

220 FOR 1 = 13 TO 16 = PLOT 4,1,C* : PLOT 27,I,C$ = NEXT 

225 X=18 = Y=18 : PLOT X,Y,7$ 

226 G=1 ; H=0 : PLOT M,N,U$ 

230 REM == DEBUT == 

240 PLAY 0,7,3,120 

j00 K=PEEK< #208 > = 7=ASC< V* > 

310 IF K=#fiC AND V=97 THEN fl=-2 

I320 IF K=#B4 AND V=98 THEN B=2 

330 IF l<=#BC AND 7=97 THEN A=2 

!340 IF K=#9C AND 7=98 THEN B=-2 

345 IF SCRN<X+A/2,Y+B-"2>=255 THEN A=9 : B=0 
350 PLOT X,Y," "= X=X+A+Q = Y=Y+B+H 
|360 S=SCRN(X,Y > 

370 IF S-46 THEN SC=SC+10 : CP=CP+1 : PLOT 18,14, STP.$<SC > : IF CP=224 THE 
N 700 

380 IF S==255 THEN GOSUB 50 
400 IF S=99 OR S=100 THEN 1000 
410 A=0 : B=0 PLOT X, Y, 7$ 

420' PLOT M,N,P$*M=M+G = N=N+H 
1425 IF M=17 OR M=20 THENGOSUB40 

428 IF N=13 OR H=16 THENG0SUB45 

429 S=SCRN<M,N > 

430 IF S=97 OR S=98 THEN 1008 

440 IF S=255 THEN M=M-G = H=N~H = GOSUB 85 
458 P$=CHR$(SCRNCM,H ) > : PLOT M,N,U$ 

460 GOTO 300 

700 REM == FIN DE TABLEAU == 

710 ZAP : ZAP : ZAP 

720 SC=SC+100 : CP=0 : GOTO 10 

1000 REM == PERTE == 

1085 POKE 853,35 

1010 EXPLODE = PAPER1 * PLOT X,Y,"T" 

1015 IF SC>HI THEN HI=SC 

1020 PRINTLINE AUTRE PARTIE <0/H> = "; = GET P.$ 

1025 IF R$< >"Ci" AND R*<>"N" THEN PRINTCHRSU1 > = GOTO 1020 

1030 IF R$="N" THEN END 

1040 SC=0 : CP=0 : GOTO 10 

§000 DATA 45,51,45,12,12,45,51,45 

5805 DATA 0,51,18,45,45,18,51,0 

5010 DATA 45,63,45,12,12,45,63,45 

5020 DATA 8,51,18,63,63,18,51 03_ 


COMMENTAIRES : 

Ligne 0 à 3? : initialisation et 
redé-f ini tion des caractères 
Ligne 40 à 80 : changement de direction 
: voiture du joueur 

Ligne 85à 95 : changement de direction 
voiture de 1'ORIC 

Ligne 100 à 226 : dessin du parcours 


Ligne 230 à 340 : saisie de la touche 
■frappée 

Ligne 345 à 410 
voiture du joueur 
Ligne 420 à 450 
voiture de 1"ORIC 
Ligne 700 à 720 : 

Ligne 1000 à 1040 : Derte et fin de 
partie 


mouvement de la 

mouvement de la 

fin de tableau 
perte et fin 










ORIC 1/ATMOS 


- 


ATTENTION FRAGILE 


Grâce à votre panier, bloquez la balle 
qui rebondit de murs en murs 
avant qu'elle ne casse votre précieux verre à pied. 
Utilisez les touches : A pour aller en haut, 

Z pour aller en bas, 

< pour aller à droite, > pour aller à gauche. 



5 X=18 : Y=24 : R=0 : B=9 : M$=" " 

8 G=18 = H=5 = Q=1=W=1 =£*=='' " 

1 0 te:*;t : cls = parer© •• i nks 

12 POKE 618,10 

20 IF PEEKX 46859 >=63 THEH 48 

3fi FOR 1=46856 TO 46843 : REflD D 5 POKE 1,D ■ N EX T 

40 A$= " ab " : B$= " cd : D$= " e" 

50 REM ===== DECOR ===== 

60 C$="k"= PLOT 1,3,4:PLOT 1,26,4 

70 FOR 1=5 TO 32=PLOT I,3,C»=PL0T I,26,C$ : NEXT 

72 PLOT 27,14,C$ = PLOT 7,14,C$: PLOT 16,6,C* : PLOT 22,24,C$ : PLOT 11,20 
, C$ 

73 PLOT 10,19,C* : PLOT 23,4,C$: PLOT 26,13,C$ 

75 C*=CHR$<255 > 

80 FOR 1=4 TO 25=PLOT 5,I,C»=PL0T 32,I,C$ : NEXT 
85 C$="J" 

•30 FOR 1 = 10 TO 19 : PLOT 14,1, C* : PLOT 23, I, C$ : PLOT I+4U0, C$ : PLOT I +4 
,19,C$ 

95 ne;-:T 

100 FOR 1 = 12 TO 17 : PLOT 16,I,C$ = PLOT 21,1,C$ : PLOT 1+4,12,C$ = PLOT I+ 
4,17,C* 

105 NEXT: PLOT 1,0,7 = PLOT 1,2,1 
110 PLOT 17,14,CHR$<1>+"f9"+CHR5K3 ) - 
115 PLOT 17,15,CHR$<1>+"hi"+CHR$(3 > 

120 PLOT X,V,fl$ : PLOT X,Y+1,B$ 

125 PLOT 12,0,"SCORE="+STR$(L > 

128 PLOT 12,2,"RECORD="+STR$<HI> 

130 REM === JOUEUR === 

140 P=PEEK<#203>=IF F-56 THEH 300 


140 
























210 IF £ 
230 PLOT 


150 IF P*140 THEH A=-l 
160 IF P* 148 THEH R=1 
170 IF P=174 THEH B=~l 
180 IF P*170 THEH B=1 

190 PLOT X .■ Y, M* : PLOT X, Y+1, M$ •- X=X+A = Y-Y+B 

200 R1 =sr:RH*r X ■ Y :■= S2=SCRH< X+1 , Y+1 > = S3=SCRH< X+1 .• Y > : S4=SCRH‘: X , Y+1 > 

51 >32 OR 32 >32. OR $3>32 OR S4>32 THEH X=X-A= Y=Y-B 
X .■ Y, A$ = PLOT X, Y+1, B$ = A=0 = B=8 
300 REH ===== . BALLE === 

305 L=L+1 = PLOT 18 .■ O .■ STR5K L > 

310 PLOT G,H,E$=G=G+Q=H=H+W 

31 S-S CR H < G.' H > = IF S >32 THEH G=G-Q = H=H-W = GOSUB S* 10 
350 PLOT G,H,D$ 

399 GOTO 140 

, 400 REH == GOBE BHLLE == 

I 410 FOR1 = 100 TO 500 STEP 10=SOUND 1,1,10 = HEXT : SOUHD 1,1,0 
420 L=L+100 = PLOTX,Y,M$ = PLOTX,Y+1,M$ = PLOT G ,H,E$ 

430 X=18 = Y=24 = G=18 = H=5 

440 PLOT X,Y,R$ = PLOT X,Y+l,B$ = GOTO 130 

960 REH OBSTACLES < HE PAS ENLEVER LES REM VIDES ) 

970 REM 

[ 330 POP=GOTO 400 
990 REH 

1000 Q=-Q = RE’PJRN 
1020 REH 
103O REM 
1040 REH 

1050 FOR I = 1 TO 4 = PIHG = HAIT 40 = NEXT = POP 

1056 EXPLODE = PLOT 7,6,"UNE AUTRE PARTIE t 0- y H> ?"=GETR$=IF R*®"N" TH 
EN END 

1057 IF R$<>"0" THEH 1056 

1058 IF L>HI THEH HI=L 

1059 L=0 = GOTO 5 

1060 G=G+Q = H=H+W = PIHG = Q=-Q : W®-W = RETURH 
1070 H=-U = 0=IHT(RHD<1>$2> =IF Q=0 THEH Q=-l 
1075 RETURH 

2550 Q=-Q = W=INT(RHD(1>#2> : IF W=0 THEH W=-l 
55 RETURH 


255 

5000 DAT A 0,0,0,63,41,18,4,9 
5010 DATA 0,0,0,63,9,18,36,8 
5020 DATA 18,4,9,2,4,9,15,15 
5030 DATA 18,36,8,16,36,8,60,60 
5040 DATA 0,12,18,37,41,18,12,0 
5050 DATA 3,4,8,12,11,8,8,8 
5060 DATA 48,8,4,12,52,4,4,4 
5070 DATA 4,2,1,1,1,1,1^7 
5030 DATA 3,16,32,32,32,32,32,56 
5090 DATA 0,61,61,8,47,47,0,63 
5100 DATA 63,63,63,63,63,63,63,63 


:OMMET>ITAIRES : 


ligne 5 à 40 : initialisation et 
redé-f i n i t i on des caractères 
Ligne 50 à 128 : décor 


Ligne 960 à 2555 : di-f-férents 
sous-programmes correspondant aux 
caractères que rencontre la balle 


ex 


Ligne 970 à 980 : panier 
Ligne 1050 : verre 


Ligne 130 
nouvement 
.igné 300 
Ligne 400 
îal 1 e 


à 230 : saisie des touches et 
du panier 

à 350 : mouvement de la balle 
à 440 : le panier a attrapé la 


Ligne 1050 à 1059 : perte et tin de 
partie 

Ligne 5000 à 5100 : DATA pour 
redé-f i n i t i on des caractères 


1 a 


141 
















- ORIC 1/ATMOS - 

GARE AUX BULLES 

Promenez-vous dans l'écran le plus longtemps possible 
sans jamais vous faire heurter par une bulle. 

Pour vous déplacer, sachez que 
A = haut, Z = bas, > = droite, < = gauche. 



5 X=33 : Y=22 : fl=0 •• 3=0 : B$= " a " : M$= " " 

10 CLS^PRPER0^INK7:POKE 618,10 

11 POKE #10R0,0 ; PLOT 12,0,"GARE AUX BULLES!" 

12 FORI=0TO7 ; READfl,B,C : POKE#10C0+I,fl : POKE#10B0+I,B : POKE#1000+I,C : NE 
XT 

14 DATA #BC,#FA,2,#BD,#F5,4,#BE,#31,1 

16 DATA #BE,#40,3,#BF,#10,4,#BF,#23,2 

18 DATA #BD,#6F,2,#BF,#30,4 

20 IF PEEK< 46856 >=12 THEH 100 

30 FOR 1=46856 TO 46895 : READ D = POKE I,D=NEXT 

35 A=#F00 

40 READ D-IF D=256 THEN 100 
50 POKE A,D : fl=A+l : GOTO 40 
100 REM DECOR 

11O C$="c"=D$="d" : E$="ddd" 

115 PLOT 1,5,1 : PLOT 1,25,1 

120 FOR 1=6 TO 34 : PLOT I,5,DÎ : PLQT 1,25,D$•NEXT 
130 FOR 1=6 TO 24 •• PLOT 6,1,€$ : PLOT 34,I,C$=HEXT 
140 PLOT 7,6,E$ : PLOT 31,6,E$=PLOT 7,7,D$ : PLOT 33,7,D$ 

150 PLOT 7,24,E*=PLOT 31,24,E$ : PLOT 7,23,D$ : PLOT 33,23,D* 

160 POKEttBCFA,#65•P0KE#BDF5,#65 = POKE #BE31,#65 *POKE #BD6F,#65 
165 POKE#BE40,#65 = P0KE#BF10,#65 = P0KE#BF23,65 = POKE #BF30,#65 
170 PING ^ PLOT15,26,CHR$( 3 >+"SCORE :" 

200 REM DEBUT 
205 fl=-l : B=0 

210 CALL#F00 = F-PEEHX#208> 

220 IF P=148 THEN A=1 = B=0 = B$= ,, b" 

230 IF P=140 THEN A=-l «B=0 = Bï= ,, a" 

240 IF P=174 THEN B=-1=A=0 
250 IF P=170 THEN B=1=A=0 
260 PLOT X, Y, m ■■ X=X+A = Y-Y+B 

270 S=SCRNc:X, Y>= IF 3032 THEN X=X-A : Y-Y-B : A=-A : B=-B 
280 IF S=101 THEN 1000 

230 PLOT X,Y,B$ : IF PEEKX#10fl0>=1 THEN 1000 
300 SC=SC+1=PLOT 22,26,STR$<SC > = G0T0210 
450 DATA 12,12,32,30,13,12,20,34 
460 DATA 12,12,1,30,44,12,10,17 
470 DATA 12,30,30,63,63,30,30,12 
480 DATA 12,30,30,63,63,30,30,12 
490 DATA 0,0,28,58,62,62,28,0 
500 DATA 162,0,189,176,16,141 

510 DATA 17,15,189,132,16,141_ 
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520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

698 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 


830 

840 

850 

860 

870 

880 

890 

900 

910 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 


18,15,169,32,i41,200 
188,234,189,0,16,168 

76.223.15.234.234.234 

234.234.234.234.234.234 
56,189,176,16,233,39 
157,176,16,189,192,16 
233,0,157,192,16,96 

24,189,176,16, 105,41 

157.176.16.189.192.16 
105,0,157,192,16,96 
24, 189,176, 1-6, 105,39 
157, 176,16,139,192,16 
105,0,157,192,16,96 
56,189,176,16,233,41 

157.176.16.139.192.16 
233,0,157,192,16,96 

189.176.16.141.121.15 

189.192.16.141.122.15 

173,159,188,201,97,208 

5.160.1.140.160.16 
201,98,208,5,160,1 
140,160,16,201,99,240 
7,201,100,240,15,76 
196,15,56,169,5,253 
0, 16,157,0,16,76 


1010 

1020 

1030 

1040 

1050 

1060 


20,15,189,0,16,201 
1,240,7,201,3,240 
3,76,137,15,168,200 
152,157,0,16,76,20 
15,168,136,152, 157,0 
16,76,20,15,189,176 
16,141,211,15,189,192 
16,141,212,15,169,101 
141,159,183,232,224,8 
240,3,76,2,15,96 
234,185,241,15,141,236 
15,185,245,15,141,237 
15,32,90,15,76,108 
15,234,36,54,72,90 
15,15,15,15,256 
PERTE 

SHfiriT : FOR I = 1T08 * PRPER4 = MA IT10 : PAPER© = MA IT10 : N EXT 
PLOT 8,3,CHRÎC2 >+"UNE AUTRE PARTIE ?" 

GET R$ 

IF R$="N" THEN END 
IF R$<>"0" THEN 1030 
RUN 


COMMENTAI RES : 


Ligne 5 à 18 : 
Ligne 20 à 30 : 
:aractères 

■ igné 35 à 50 : 
'outine machine 

■ igné 100 à 170 : 

■ igné 210 : appel 
îouger 1 es bal 1 es 
.igné 210 à 290 : 


initialisation 
redéfinition des 


implantation de la 


décor 

à la routine 


qui -fait 


saisie des touches et 


du personnage 
celui-ci rentre dans une 


une balle le heurte . <La 
1 en 10A0 si une balle le 


mouvements 
Ligne 280 
bal 1 e 
Ligne 290 
routine met 
heurte) 

Ligne 300 s incrémentation du score 
Ligne 450 à 490 : DATA pour la 
redéfinition des caractères 
Ligne 500 à 910 : DATA pour la routine 
de la machine 

Ligne 1000 : perte et fin de partie ► 
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- j - j - ORIC 1/ATMOS - 

TELEPHONES FOLIES 

Décrochez le maximum de téléphones avant que le compteur 
n'arrive au chiffre fatidique de 
zéro! 

Utilisez les touches < pour aller à gauche et 
> pour aller à droite. 



5 PING 

10 T EXT CLS = PRPER0 ; I NK 3 
15 POKE 618,10 

20 IF PEEKC47039>=56 THEN 40 

30 FOR 1=46856 TO 47939 ; RED 0 ;POKE I,D ; NEKT 

40 K$==" f 9 " : M$= " " = P= 1 = X=21 •• Y=21 

45 F0RI = 1T06=TC I>=200=MC I>=200=NEXT 

46 XC 1 >=2 •• YC 1 >=7 ^ XC 2 >=2= YC 2 >= 13 = XC 3 >=2 = YC 3 >= 19 

48 XC 4 >=34 ^ YC 4 >=7 : XC 5 >=34 : YC 5 >= 13= XC 6 >=34 = YC 6 >= 19 
50 REM == DECOR == 

55 fl$="ab 11 : BS="cd" 

60 FOR 1=9 TO 21 STEP6 

70 PLOT 1,1,1=PLOT 1,I +1,1 : PLOT 1,I+2,4 

89 PLOT 3,I,RS+CHRSC 3 > = PLOT 3,1 + 1,BS+CHRSC 3 > 

90 PLOT 34,I,CHRSC1>+RS=PLOT 34,1+1,CHRSC1>+B$ 

100 NEXT : RS="eee" 

105 PLOT 1,1,2 = PLOT 2,1,10 = PLOT 1,2,2 = PLOT 2,2,10 
108 PLOT 15,1,"TELEPHONE !" = PLO 15,2,”TELEPHONE !" 

110 FOR 1=2 TO 35 STEP 3 = PLOT I,U,RS = PLOT I,17,RS=PLOT I,23,fl$ = NEX 
T 

120 RSC 1 >= " 1 m" = B*C 1 >= " no " = RSC 2 >= " tu. " = BSC 2 >= "vw " 

125 CSC 1 >= " h 1 " = DSC 1 >= " j k " = CSC 2 >= " P q " = DSC 2 >= " rs " 

130 FOR I=6 TO 23 = PLOT 19,1,K$ = SOUND 1,I*25,12 = WRIT 20 = PLOT 19,1,MS 
= NEXT 

135 PLOT 2,4,"SCORE=" PLOT 27,4,"ERREURS=" 

138 PLOT 1,6,5=PLOT 1,25/7 

149 PLOT 19, 23, KS = F’ ING 
145 Yfl=23 : Bfl==-1 

148 PLOT X,Y,RSC1> = PLOT X,Y+1,BSC1> 

150 REM == DEBUT == 

155 PLOT 19,Yfi,MS 

160 YR=YR+Bfl =IF YR<12 OR Yfi>22 THEN BR=-BR 
165 IF N=1 THEN Y=Yfl-2 

170 PLOT 19,Yfl,KS=IFN=1THENPLOT19,YR-1,NS = PLOT 19,Yfl-2,QS = PLOT 19,Y 

fl-3,MS 

180 FOR 1 = 1 TO 6 = T=TCI> = T=T~1 
185 IF TCO THEN 210 
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190 PLOT XC I ), YC I >, " " : PLOT XC I >, YC I >, STRSC T > 

195 IF T=10 THEH PING 

200 IF T=0 THEH GOSUB 1000 : MCI>=0 

210 TC I>=T : NEXT 

215 SC=SC+1 : PLOT 3,4,STR*CSC> 

220 K=PEEKC#208 > : IF K=56 THEH 155 
230 IF P=1 THEH P=2 ELSE P=1 
235 PLOT X.- Y.' MS : PLOT X,Y+1,M* 

240 IF K=140 THEH fl=-1 : Q*=R*CP > : W*=B*CP > : B=0 
250 IF K= 148 THEH fl=1•Q*=C*CP ) ■W*=D*CP> = B=1 
255 X=X+fi’S=SCRNCX+B,Y+2> 

258 IF 3=32 THEH X=X-H : GOTO 300 

259 H=0 

260 IF X>32 THEH X=32=G0T0 400 

265 IF X=18 flHD 8=102 THEH X=19=N=1 
270 IF X<6 THEH X=6=G0T0 450 
275 IF X=20 flHD 3=103 THEH X=19=H=1 
00 PLOT X.- Y, Q$ : PLOT XL Y+l, kl* 

310 GOTO 155 

400 IF Y=09 THEH 1=4 

410 IF Y=15 THEH 1=5 

420 IF Y=21 THEH 1=6 

43R GOTO 480 

450 IF Y=09 THEH 1=1 

460 IF Y=15 THEH 1=2 

470 IF Y=21 THEH 1=3 

430 PLOT X, Y.• 0$ ; PLOT X, Y+l, W* : IF NC I >=0 THEH 155 

432 MC I >=MC I >-20 : IF MC I ><20 THEH MC I >=20 

490 FOR J= 1TO 3 : SOUND 1 .■ 133,12 : WflIT 60 : SOUHD 1,1,0: i.jfl i T 25 : HEXT 
495 TC I>=MCI>:Yfl=Yfl-Bfl : GOTO 155 
1000 REM == PERTE == 

1010 SOUHD 1, 1500.■ 12 : WflIT 60 : SOUHD 1,1,0 
1020 R=R+1 ; PLOT 35,4,STR*CR> 

1025 IF R<3 THEH RETURH 
1030 EXPLODE 

1040 PLOT 7,6,"ON CHflHGE DE STflHDflRDISTE!" 

1050 PLOT 5,25, "ETES-VOUS VOLONTAIRES C O.-'N > ?" 

1060 GET R$ 

1070 IF R$="H" THEH END 
1080 IF R$<>"O" THEH 1060 
1090 RUH 

5000 DATA 0,0,0,0,15,31,63,56 
5010 DATA 8,0,0,0,60,62,63,7 
5020 DATA 51,7,14,12,12,14,31,63 
5030 DATA 51,56,28,12,44,28,62,63 
5040 DATA 63,63,0,63,63,63,59,17 
5050 DATA 63,32,32,32,32,63,0,0 
5060 DATA 63,1,1,1,1,63,0,0 
5100 DATA 1,1,1,1,0,0,3,15 
5110 DATA 56,62,40,60,56,43,60,62 
5120 DATA 27,18,7,7,63,60,32,0 
5130 DATA 59,40,56,60,28,12,12,14 
5140 DATA 7,31,5,15,7,3,15,31 
5150 DATA 32,32,32,32,0,0,48,60 
5160 DAT A 55,5,7,15,14,12,12,28 
5170 DATA 54,18,56,56,63,15,1,0 
5180 DATA 1,1,1,1,0,0,3,15 
5190 DATA 56,62,40,60,56,49,62,60 
5200 DATA 27,14, 3 ,7,,6,6,7 
5210 DATA 56,40,56,60,14,6,7,0 








5220 

DATA 

7,31,5 

, 15,7,35 

,31,15 

5230 

DfiTR 

32,32, 

32,32,0, 

0,48,60 

5240 

DATA 

7,5,7, 

15,28,24 

, 56,0 

5250 

DATA 

54,28, 

48,5656. 

24,24,56 


COMMENTAIRES : 

Ligne 20 à 30 : redé-finiton des 
caractères 

Ligne 40 à 48 : initialisation 
Ligne 50 à 148 : trace le décor 
Ligne 155 à 170 : mouvement de 
1 ' ascenseur 

Ligne 180 à 210 : décrémente les 
compteurs de téléphone et teste si un 
compteur a atteint 0 
Ligne 215 : a-f-fichage du score 


Ligne 220 à 310 : saisie des touches, 
mouvement du personnage 
Ligne 400 à 430 : on a touché un tél . de 
droite : test pour savoir lequel 
Ligne 450 à 470 : on a touché un tél . de 
gauche : test pour savoir lequel 
Ligne 480 à 495 : a-f-fiche le bonhomme, 
met à jour le compteur du tél. décroché 
Ligne 1000 à 1025 : perte 
Ligne 1030 à 1090 : tin de partie 
Ligne 5000 à 5020 : DATA pour la 
redé-finiton des caractères 


ORIC 1/ATMOS 


CIDRE OU PINCE? 

Pour gagner, il vous faut remplir toutes les bouteilles de 

la chaîne. 

Si vous en ratez une, il vous reste toujours 
la possibilité d'essayer de la récupérer avec la pince. 
Utilisez les touches : 

Z pour ouvrir le robinet et (SPC) pour lancer 

la pince. 



5 H=60 

10 TEXT=CLS=PRPER0=INK7 
12 PÛKE 618,10 
15 Y$=="" : Z$=="" 

18 IF PEEK<46856>=3 THEN 30 

20 FOR 1=46856 TO 46967 *RERD D-POKE I, D = NEXT 

30 FOR 1=1 TO 35 : Y$=Y$+" "=Z$=Z$+" “«NEXT 

40 fl$="ab" : B$="cd"= C$="ef" : D$=“9h"= E$="îj" =F$=" nm" :1 


" : N= " 


45 G$=" "=PLOT 1,1,5=PLOT 1,2,5 

50 PLOT 2,1,10 = PLOT 2,2,10 = PLOT 13,1,"Lfl CIDRERIE" = PLOT 13,2,"Lfl CI 
DRERIE" 

55 PLOT 1,4,3 = PLOT 2,4,"SCORE =" 

60 X=24 = Y=14 

70 PLOT 1,6,4 = PLOT 2,6,"RECORD ="+STR$<R > 

80 PLOT 24,4,CHRSK7 )+"ERREURS ="+STR$( V> 
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fl 00 
110 
120 
130 
135 
140 
145 
150 
160 
165 
170 
130 
190 
1200 
105 
808 
210 
[215 
220 
230 
240 
250 
255 
260 
IflP 
265 
i 270 
[280 
300 
1 305 
510 
320 
330 
335 
340 

499 

500 

510 

520 

530 

550 

560 

570 

599 

600 
605 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
705 
710 
712 
715 
718 


REM === DECOR ===== 

FOR 1=2 TO 38 =PLOT 1 , 20 ," 1 "=MEKT 
FOR 1=19 TO 37 =PLOT I, 13 ,"k"=NEXT 
PLOT 34 , 17 ,"kkkk“= PLOT 15 , 17 ,D$ 

PLOT X,Y,E* _ 

PLOT 1 , 20 , 1 = PLOT 3 , 17,4 = PLOT 3 , 13,2 = PLOT 1 ( > 17 , 

FOR 1=13 TO 19 =PLOT 38 ,I,"!"=PLOT 2 ,I," 1 " ! HEXT 
REM ===== DEBUT === 

Y$=MID$<Y$, 1,34 > = Z$=MID$<Z$, 1,34 > 

PLOT 8 , 4 ,M$ = PLOT 8 , 4 ,STR*<SC > 

IF Q$=" " RND C =4 THEN G$="b"=H$="d"= GOTO 200 

IF G$="b" THEN G$-"a" ; H*=="c"=GOTO 200 

IF Gï="a" THEN G$=" "=H$=G*=C =0 

IF G$==" " THEN C=C +1 

Y*=»G*+Y$ = Z$=H$+Z$ = T=T +1 

IF T =50 THEN W=W- 10 =T= 0 =IF W <1 THEN W =1 

PLOT 3 , 18 ,Y$ = PLOT 3 , 19 ,Z$ 

FORI = lTOW = NEXT 
K$=KEY$ 

IF Kï=" 2 " THEN GOSUB 500 
IF K$=" " THEN GOSUB 600 
S-SCRH':; 36,19 > = IF 3=93 THEN ,260 

PING = WRIT 40 = PING = WHII20 = PING = WRIT 30 = PING = WRIT40 = ZRP = WRII 10 = ^ 
WRIT 50 

V=V+ 1 =IF V =3 THEN 300 
GOTO 10 

PLOT 9 , 9 ,"VOUS ETES RENVOYE*E > !" 

PLOT 34 , 4 ," 3 " 

PLOT 9 , 11 ,"ENCORE UN ESSRI < O-N > ?" 

CET R$ = IF R$="N" THEN END 

ÏF R$<.>" 0 " THEN 320 

IF SOR THEN R=SC 

sc=0 v=0 : GOTO 5 

REM == REMPLISSAGE == 

S=SCRN‘- 15 , 18 >= IF 3097 THEN 550 

FOR 1 = 10 TO 40 = SOUND 1 , 1,12 = NEXT = SOUND 1 , 1,0 = SC=SC +10 
Z$=MID$<Z$, 1,12 >+CÏ+MID$CZ$, 15,20 > 

RETURN 

s fil IRD 1 , 600,12 = WR IT 60 = SOUND 1 , 1,0 
SC=SC- 20 =IF SC <0 THEN SC =0 
RÊTURN 

REM === PINCE === 

PLOT 35 , 15 ,N*=PLOT 35 , 16 ,N$ 

FOR Y *14 TO 16 

PLOT X,Y,F$ = PLOT X,Y+l,E$ = WRIT 20 
NEXT 

IF SCRN<X ,18 >=97 THEN 690 

SOUND 1 , 1500 , 12 =WRIT 60 =SOUND 1 , 1,0 

FOR y ==17 TO 14 STEP -1 

PLOT X,Y,E$ = WRIT 20 = PLOT X,Y,N$ = NEXT = Y =14 
X= ï NT< RNDC 1 )* 14 )+19 = PLOT X, Y, E$ 

RETURN 

IF SCRNCX ,19 >=101 THEN 640 
FOR 1=60 TO 90 =SOUND 1 , 1 , 12 =NEXT 

FOR 1=90 TO 60 STEP- 1 =SOUND 1 ,I, 12 =NEXT=SOUND 1 , 1,0 
SC=SC +5 

Z=X -3 = Y= 32 -Z ^ 

Z$=MID$(Z$,1,Z>+N$+MID$CZ$,Z+3 ,< î 
Y$=MID$<Y*, 1 ,Z)+N*+MID*<Y*,Z+ 3 ,Y > 
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720 

FOR Y= 

17 TO 14 STEP-1 



739 

PLOT > 

,Y,E$: PLOT K,Y+1,A$: PLOT X,Y+2,B$ 

WAIT 20 


740 

PLOT > 

,Y,M$=PLOT X,Y+1,N$=PLOT X,Y+2,H$ 

NEKT: Y-14 


750 

FOR 1 = 

X TO 35 : PLOT I,14,E$ : PLOT I,15, A$ 

PLOT I,16,B$:WAJT 20 


760 

FOR J= 

14 T0 16:PLOT I,J,H$=NEXT 



770 

N EK T I 

: PLOT 35,15,A$: PLOT 35,16,B$: PLOT 

X,Y,E$ 


780 

RETURN 



5000 

DATA 

3,3,2,2,2,2,4,8 



5010 

DATA 

48 , 48, 16, 16.. 16.-16 .> 8/ 4 



5020 

DATA 

8,8,8,8,8,15,15,15 



5030 

DATA 

4,4,4,4,4,60,60,60 



5040 

DATA 

15,15,15,15,15,15,15,15 



5050 

DATA 

60,60,60,60,60,60,60,60 



5060 

DATA 

8,62,8,63,63,1,3,0 



5870 

DATA 

0,0,0,0,32,32,48,0 



5080 

DATA 

1,3,6,15,30,28,24,12 



5030 

DATA 

32,48,24,60,30,14,6,12 



5100 

DATA 

63,63,8,20,34,1,63,63 



5110 

DATA 

54,54,0,0,54,54,0,0 



5120 

DATA 

1,2,4,2,1,2,4,2 



5130 

DATA 

32,16,8,16,32,16,8,16 




COMMENTAIRES : 

Ligne 5 à 145 : initialisations diverses 
et dessin du décor 

Ligne 150 à 215 : affichage et mouvement 
des boutei11 es 

Ligne 220 à 240 : saisie de la touche 
■frappée 

Ligne 250 : teste si une bouteille se 
casse 

Ligne 260 à 340 : perte 


Ligne 499 à 530 : remplissage d'une 
boutei11e 

Ligne 550 à 570 : une bouteille n'est 
pas remplie = 20 points en moins 
Ligne 599 à 620 : descend la pince 

Ligne 640 à 680 : remonte la pince vide 

Ligne 700 à 780 : remonte la pince avec 

1 a boutei11e vide 
Ligne 5000 à 5130 i DATA pour la 
redéfinition des caractères 


- ORIC 1/ATMOS - 

SPACEINVADERS 


Revoilà les fameux vaisseaux ennemis, toujours plus 
agressifs, toujours plus nombreux. 

Dirigez votre laser grâce aux touches Z (gauche) 

et X (droite) 

et faites feu en pressant la barre d'espace. 











fi CLS 

1 PAPER© : IHK7 • PR I NTCHR*C 17 > • CHR*C 6 > = CLEAR : DI MW 39 > 
9 FnRfl=46856TO46903 : RERDC : POKER.. C•HEXTA 


0 

4 


DRTR28.. 62, 28,8' 28, 62 , 28 .■, 34,42, 62,28, 28, 8,8 ,,34,54,42, 62,42,28,8, 
DATAS, 8,28, 42,42, 42,8,, 28, 62, 28,8, 20,42,42,, 34,54,42,62,8 ,20 , 34,0 


7 DATR46360,0,8,28,8,42,62,34,0,46448,, , , , 8, ,, 0,46456,, ,, 3,33■■ 0 

8 
Cl 


10 

11 

12 

13 

14 

15 

16 


FfiPfl=l T03 : PE ADO : FnPB=CT0C+7 • REflDD : POKEB, D : NEXTB, A : GOT0400 
F fl=4 : F 1=0 : Tfl=0 : SC=0 = MU=LV = B$="########################### ### " 
K= 17 - v= î7CLS : FÛ=FU+1= TA=Tfl+1 : IF FI +1 =FUTHEH MU=MU+1 
8=126 : FI=FU 

PLOT25,3, "HI = " +MID*< STR5K HI .>,2,6 > 

F0RA=8T028 ; ACA )=6 : NEXTR : R=.017TTA+LVTü.05+0.06 
PRINTCHR$< 27 >.; "L SP ACE INVRDERS" 

PL0T25,4, " BOARDS : " +MI D$C STR$C T A >, 2,3 ) : PLOT 1,26, LEFT$C B$, F U 
PLOT1~ 4,"X "+MID*CSTR*<MU>,2,4> 


19 PR ï HT= PRI HT = PR IHT’= PRI HT : PRI HT = PRI HT : PRI HT• PR IHT * PRI HT 


20 

21 


PRINTCHR*C27 >"P";CHR$C 27 >"F" 

___ PRIHTCHR$C27 >"P" i CHR*<27 >"E" 

22 PRINTCHRSC 27 >"P";CHR$C27 >"A" 

_ _ PRIHTCHRSK27 >"P";CHR* C 27 >"C" 

24 PRIHTCHR$C 27 >"P" .; CHR$C 27 )"B" 

> " P " ; CHR$C 27 )“ G " 

FORK=0TO5^F0RL=1T021 

PL0T7+L, 10+K, 102-K = MUS IC1, K .• I HT < L/2 >+1,15 
HEXTL=HEXTK 
GOTO194 

. I$=KEY$ : IFJ$< >" "THEHK*=J* 
ï FK$="X"THEHV-X+1 : GOT0150 
IFK$="Z"THEHV=X-1 : GOTO150 
IFAC X K1THEN100 
F'LOTX, 20, " . " : G=10+AC X > 

FORB= 19T OGSTEF'-1 -PLOTX,B, 11 
PLÛTX,B+l," " 


123 

25 PRIHTCHR*<2 

26 

27 

28 
30 
100 
105 
110 
120 
125 
130 
135 

140 

141 

144 

145 
150 
160 
170 
180 
189 


":PLOTX,B+l," "•HEXTB 


Pl~fiTv . B, " t " : SC=SC+10^MUT-C 16-B ? '■ PLOTX, B, " " ; S-S-1 : AC X >-AC X > 1 
fi$=MID*C STR*C SC >,2, 7::- IFSC>HITHEHPL0T25,3, "HI = " +A$ 

IFS=0THEH10 

PLOT1■3,"SCORE : "+A$•GOTO170 
IFV<20RV>37THEHV=X 
F'LOTX ,21, " " : PLOTV ,21,"# " '• X=V 
]' FRHDC 1 >>R-RC X > -"40 OR AC X >< 1THEH100 
B=10+RCX >■LOTX,B,"/"= ZAP 

FORfls1+BT021 : PLOTX,fl-1," " : PLOTX,A,"/" : HEXTH 

190 . I$=KEY$ : IF J$< > " " THENK**J* v 

1qï îFK$="Z"ORK*="X"THEHMUSIC1,3,4,0 = PLAY1,0,4,400TC1-R>_GOTülOO 
192 F'LOTX, 21, " * " = EXPLODE = WA IT50 : FU=FU-1 : PLOT 1,28, LEFT*C B $, FU >+ : P 

IH G 

1 g:-: M! I=LV ; F'LOT 1,4, " X " +MI D$C STR$C MU >, 2, 4 > 

194 jFFU-0THENPLOT14,13,"GAME OVER" : WAIT250 : GOTO30U 

195 MUSICI,3,4,0 = PLAY1,0,4,400TC 1-R > 

200 GOTO160 

300 REM 

310 CLS = A=126TTA-S : A$=STR$CA > 

§20 PLOT12,10,"CONGRATULATIQHS !" 

330 F'LOTl, 12, "Y'OU'VE DESTRQYED" +A$+ " FLYIHG SRUCERS" 

940 PLOT1,14,"AND MADE"+STR$C SC>+" PO1HTS" 

V,0 IFSC>HITHEHHI=SC : PLOT1,16,"AHD BERTEH THE HIGH SCORE" 

SF0 PLOT 1 5,2.6, " F'USH A KEY" 

370 PQKE#2DF,0 = GETA$ : P0KE#2DF,0 
400 CLS=PRINT 

410 PRINTCHRÎC 4 >;■ CHR$C 27 >; "B" ; CHR$C 27 >:• "H 


SPRCE IHVADERS 












"■CHR*<4 > 

420 PRINT•PRINT = PRINT = PRINT 
430 PRINT"BASIC VALUES =" 

440 PRINT ; PRINTCHR*<2?>;"P";"VAMPIRE f. 

450 PRINTCHR$<27);"P""OCTOPUSSY e . 50" 

460 PRINTCHRSK27 ’>} "P"; "TRIDENT d. 40 


470 PRINTCHR$<27);"P";"MASK c . 30 

489 PRINTCHR$<27 "P" ; "DELTA b. 20 

490 PR INT "DOUBLE HEAD a. . 1" 

500 F‘RINTCHR$C 27 "LYOUR SH IP #. 0" 

510 PRINT : PRINT ! PRINT"CÜNTRQL : KEYBOARD ONLY" 

520 PRINT : PRINT"-KEY Z FOB LEFT" 

530 PRINT"-KEY X FOR- RIGHT" 

535 PRINT"-KEY L FOR LEVEL 
540 PRINT"-SPACE FOR SHOOTING" 

545 PLOT 1..24, "LEVEL = 0" 

550 PR I NT = PR I NT = PR I NTCHRSC 27 > ; " P "CHR$< 27 ) ; " C 
BEGIN" 


il 

il 

il 


551 ZZ=0=LV=0 


60 " 


PUSH SF'ACE TO 


552 B=ZZ : ZZ-ZZ+1 

553 F0RA=43321T043561STEP40 ; B=B+ 1 = C0=B/6 = C0= 1+1 NT< 0.1 +6 %<-. CO-1 NTC en > 
> > POKEA', CO 

554 NEXTA ■ Aï=KEY$ '• I FA$= " " THEN552 

555 IFA$<>" "THENLV=LV+1 : PQKE#2DF,0 = LV=-CLV<>10>*LV : PL0T7,24,48+LV : 
G0T0552 

556 LV=LV+1 : 

560 GOTO? 

590 CLS 

600 FORK=0TO5=FORL=1T021 

610 PL0T3+L,10+K,102-K = MUSIC1,K,INTC L/2 >+1,15 
620 NENTL=NENTK 


COMMENTAIRES : 


Ligne 0 à 1 : initialisation de l'écran 
Ligne 2 : chargement des caractères 
graphiques 

Ligne 3 à 7 : datas des graphiques 
Ligne 9 à 11 : initialisation des 


variables du jeu 

Ligne 12 à 25 ! tracé des dessins de 
1 'écran 

Ligne 26 à 28 : musique d'accompagnement 
Ligne 100 à 110 : test du clavier 
Ligne 125 à 194 : programme principal 
Ligne 194 : -fin de jeu 
Ligne 300 à 550 : présentation du jeu 


- ORIC 1/ATMOS - 

PEINTURE PARTY 

Repeignez votre appartement sans vous faire attraper 
par de voraces petits fantômes. 

Et dès que votre pot de peinture s'épuise, 
courez en chercher un autre. 

Pour vos déplacements, K = gauche, A = haut, Z = bas et 

L = droite. 


2 V=2 

5 N=31 : Y= 13 : B$= " 3 . " : P$=CHR$C 255 > R= 100 

6 T=20 ; N=20 •• A=0 : B=0 = Q=0 • W=0 = M=@ 

7 G=31 : H=13 : M$="c" 

10 TENT = CLS : PflF'ERO = INK3 
15 POKE 618,10 


150 






















30 PLOT 3,1,"ef" : PLOT 3,2.■ "9h" = PLOT 20, 2, "ef " = PLOT 20, 
faf, PLOT 25,3, " SCORE= " = PLOT 24,3,7 
|0 PLOT 2•1,5 : PLOT 2,2,5-PLOT 19,2,2=PLOT 19,3,2 
42 PLOT 34,6,"a="= PLOT 33,6,5 = PLOT 36,6,STRSK V> 

15 PLOT 7,0,"ATTENTION..."=PLOT 9,2,"PEINTURE"=PLOT 11 
.. IF PEEKC46856>=14 THEN 1O0 
50 FOR 1=46356 TO 46935.= REflD D = POKE I,D=NEXT 
52 FOR I=3 TO15 = REflD fl$ = PLOT 33,I,fl$ = PLOT 37,1,6 = HEXT 
(60 DATA 14,14,36,31,15,14,10,27 
52 DATA 28,28,9,62,60,£8,20,54 
[64 DATA 12,30,45,63,33,63,19,43 
56 DATA 12,18,33,33,33,33,18,12 
58 DATA 3,4,3,16,16,32,63,31 
I70 DATA 48,8,4,2,2,1,63,62 
72 DATA 30,22,20,16,16,16,16,31 
[74 DATA 46,6,2,2,2,2,2,62 
; 76 DATA 12,30,45,63,33,63,50,3 
I78 DATA 32,48,32,48,32,48,32,63 
[80 DATA P, E, I, H, T, U, R, E f. 

100 REM == DECOR == 


105 C$=CHR$<255 > = D$="d" 

108 PLOT 1,5,1=PLOT 1,25,1 . 

110 FOR I=2 TO 32 = PLOT 1,5,D$ = PLOT1,25,D$ = NE*T 
120 FOR 1=6 TO 24=PLOT 2,I,D$=PL0T 32,I,D$=NEXT 
130 PLOT 32, 13," "= FORI = 12T014 = PL0T33,I,D$ = NEXT 
132 PLOT 34,12,4=PLOT 34,13,4 
135 PLOT 35,12, "ef" =PLQT 35,13,"Qh" 

150 FOR 1-20 TO 24 = PLOT 35,1, "J" : PLOT 36,1, C$ = NE.=-.T 

160 PLOT X,Y,B$ 

200 REM == DEBUT == 

210 K=PEEK<#208 > 

215 IF K==56 THEN 400 
1216 M=M+1 

220 IF K*174 THEN B=-l 

230 IF K*170 THEN B=1 

240 IF K=131 THEN A=-l 

250 IF K== 143 THEN A=1 


3,"9h" 


,4,"FRAICHE." 



260 PLOT X, Y, F‘$ = X=X+A = Y=Y+B = S=*SCRNC X, Y > 


2y 
275 


O IF S=== 100 THEN X=X-A = Y=Y-B 


S=SCRN<X,Y) 

280 IF 3 ==99 OR S® 105 THEN 900 
285 IF S ==255 THEN Z=Z-5 
290 IF B$='V THEN B$="b" ELSE B$="a" 

295 IF R=0 THEN ZAP 

300 IF R<1 THEN P$=CHR$C S) = T=-l _ ^ . . 

310 IF R>0 AND S=32 THEN P=P+1 = Z=Z+10 = PLOT 3i-, 3, sjTR$*.. 

EN"950 

350 fl==0 = B=0 = R=R-1 = PLOT X, Y, B* 

360 T=T-1=IF T=0 THEN PLOT 36,H," "=N=N+1=T=20 
370 IF X=2 AND R<1 THEN GOSUB 850 
400 IF M<120 THEN 210 

410 PLOT G,H,C$ = Q=0 = W=0 , 

420 IF G<X AND SCRNCG+1,HX>32 THEN Q=l=bOTU 500 
IF G>X AND SCRNCG-1,H X >32 THEN Q=-l=GQTO 500 
IF H<Y AND SCRNCG,H+1><>32 THEN W=l=GOTO 500 
IF H>Y AND SCRNC G,H-lX>32 THEN W=-l 
IF M$="c" THEN M$="i" ELSE M$="c" 

G-G+Q = H=H+W = S=SCRNCG, H > 

IF S=97 OR S=98 THEN 900 


Z)=IF P>549 TH 


430 

440 

450 

500 

502 

505 


50 IF S*100 THEN G=G-Q = H=H-W 
510 PLOT G,H,M$ 















_J 

600 GOTO 210 

850 REM == REMPLISSAGE == 

855 PING * WAIT 30 

860 R=100 :N=20 = T=20 = P$=C$ 

870 FOR 1=24 TO 20 TEP -1 = SOUND 1,1*30,10=WAIT 20 

880 PLOT 36,I,C* MEKT=PING 

330 RETURN 

300 REM == PERTE == 

310 IF P$OC$ THEN G=G-Q : H=H-W : PLOT G, H, M$: GOTO 210 

311 EXPLODE •• WA IT 10O 

312 V=V-MF V=-1THEM 315 

313 PLOT X,Y,P$ : PLOT G,H,C$ : X=31 : Y=13 = G=31 :H=13:M=0 = PLOTX,Y,B$ 

314 GOSUB 850 : PLOT 36,6, STR$-:; V) = GOTO 210 

315 PLOT 1,26,7: PLÛT2,26, "UNE AUTRE PARTIE •: O/N > b T". 

320 GET Z$ : IF Z$="N"' THEN END 

925 IF 2$="Q" THEN 330 
928 GOTO 320 
330 RUN 

950 REM == FIN DE TABLEAU == 

352 ZAP :ZAP = ZAP 

955 Z=Z+100:PLOT 13,14,"BONUS 100"=NAIT 200=P=0 
960 GOTO 5 


COMMENTAIRES : 

Ligne 2 à 7 : initialisation 
Ligne 30 à 45 : affichage du titre 
Ligne 47 à 50 : redéfini ton des 
caractères 

Ligne 60 à 78 s DATA pour les caractères 

Ligne 100 à 160 : trace le décor 

Ligne 200 à 260 : saisie des touches et 

calcul des coord, du personnage 

Ligne 270 à 285 : on teste le caractère 

que va rencontrer le peintre 

Ligne 270 : mur => marche arrière 


ATARI 600/800 XL 


ALPHALUCK 

Recomposez le carré magique des lettres 
en remettant ces dernières dans l'ordre alphabétique. 
Pour jouer, pressez simplement 
la touche qui correspond à la lettre choisie. 


5 REM _ 

6 REM-ALPHALUCK - 

7 REM _ 

10 DIM A$(14),B$(l),C$(l) f D$(l),E$(l) 

15 OPEN #1,4,0,"K:" 

16 C=0 

20 A$="ABCDEFGHIJKLMN" 

30 PRINT " ALPHALUCK " 

40 PRINT "REMETTEZ TOUTES LES LETTRES DANS L'ORDRE 


Ligne 280 : 
Ligne 285 : 
Ligne 290 à 
du peintre 
Ligne 360 à 
peinture 
Ligne 410 à 
Ligne 505 : 
peintre. Si 
Ligne 850 à 
pe i nture 
Ligne 900 à 
Ligne 950 à 


monstre => perte 
peinture => -5 points 
350 j affichage du score et 


400 : gestion du stock de 


502 : mouvement du monstre 
test de rencontre avec le 
oui => perte 

890 : remplissage du pot de 


930 s perte et fin de parti 
960 : fin du tableau 


152 




















I* „ 


50 PRINT "POUR CHANGER UNE LETTRE DE PLACE 
OURENTAUSSI" 

65 REM _ 

66 REM - MELANGE 

67 REM _ 

70 PRINT "COMBIEN DE FOIS DOIS JE MELANGER "i 

80 INPUT Y 

90 FOR 1=1 TO Y 

100 X=INT(RND(0)*14+1) 

110 GOSUB 500 
120 NEXT I 

125 REM ___ 

126 REM - AFFICHAGE 

127 REM ____ 

130 GRAPHICS 18 

140 COLOR 1 

150 POSITION 3,3 

160 PRINT #6 ;"ABCDEFGHIJKLMN" 

170 COLOR 3 
180 POSITION 3,5 
190 PRINT #6;A$ 

195 POSITION 3,0:PRINT #6;"coup n ";C 

196 IF A$="ABCDEFGHIJKLMN" THEN 300 

197 REM___ 

198 REM - INTERROGE 

199 REM ____ 

200 GET #1,X 
210 X=X-64 

220 IF X<1 OR X>14 THEN 200 
230 GOSUB 500 

II?) felTO 1 180 

295 REM _ 

296 REM _ GAGNE 

297 REM 


300 FOR 1=1 TO 14 
310 SOUND 0,200,1,1 
315 FOR J=0 TO 50:NEXT 
320 NEXT I 

325 SOUND 0,0,0,0 / 

330 IF PEEK(753)=0 THEN 330 ^ 

340 RUN 

495 REM _ 

496 REM - 

497 REM 


ECHANGE LES LETTRES 



500 B$=A$(1,1) 

510 C$=A$(X,X) 

520 A$(1,1)=C$ 

530 A$(X,X)=B$ 

540 IF X>1 THEN B$=A$(X-l,X-l): GOTO 560 
550 B$=A$(14,14 ) 

560 IF X<14 THEN C$=A$(X+1,X+1):GOTO 580 
570 C$=A$(1,1) 

580 IF X=1 THEN A$(14,14)=C$:A$(2,2)=B$:G0T0 620 
590 IF X=14 THEN A$(13,13)=C$:A$(1,1)=B$:G0T0 620 
600 A$(X-l,X-l)=C$ 

610 A$(X+1,X+1)=B$ 

620 RETURN 




GMMENTAI RES 


; 


igné 5 à 50 : présentation du jeu 
igné 65 à 120 : mélange des cartes 


L i gne 
L i gne 
L i gne 
Ligne 


125 à 196 : a-ffichage 

197 à 250 : intérroge 
295 à 340 : gagné 
495 à 620 : échange les 


1 ettres* 
153 




































- ATARI 600/800 XL —-- 

MAGI-CARRES 


Neuf cases à blanchir et un choix limité 
de déplacements. 

Un défi lancé à vos neurones. 
Relevez-le et essayez de battre votre ordinateur 
en pressant le chiffre 
correspondant au déplacement subi. 



4 REM _ 

5 REM-MAGICARRE- 

6 REM _ 

10 GRAPHICS 18 

15 POSITION 5,5 
20 ? #6;"MAGICARRE" 

30 FOR 1=1 T0 2000:NEXT I 

35 GRAPHICS 3:P0KE 752,1 

36 C0L0R 2:FOR 1=0 T0 3:PLOT 12+1*5,3:D 
RAWTO 12+1*5.1. :NE t 

40 POKE 709,2:P0KE 708,10 

44 0PEN #1,4,0,"K:" 

45 DIM A(3,3),A$(6) 

46 REM _ 

47 REM TIRAGE ALEATOIRE DES COULEURS 

48 REM _ 

50 FOR 1=1 TO 3 

55 FOR J=1 TO 3 
60 A(I,J)=INT(RND(0)*4) 

65 NEXT J 
70 NEXT I 

72 C=0:PRINT " " 

73 PRINT "TYU":PRINT "GHJ":PRINT "BNM" 

75 REM ___ 

76 REM - AFFICHAGE DU CARRE 

77 REM 

80 FOR Ï=1 TO 3 

85 FOR J=1 TO 3 

86 COLOR A(I,J) 

90 FOR K=0 TO 2 

95 PLOT J*5+8,I*4+K:DRAWTO J*5+11,I*4+K 

96 NEXT K:NEXT J:NEXT I 

97 REM _ 

98 REM - TEST DE CONTROLE I 

99 REM 

100 FOR 1=1 TO 3 ‘ -- 

105 FOR J=1 TO 3 


110 IF A(I,J)=2 THEN NEXT J:NEXT IîGOTO 
1000 

120 REM __ 

121 REM - DEMANDE UN COUP 

122 REM _ 

125 GET #1,X 

150 IF XOASCC'T") THEN 200 
160 FOR 1=1 TO 2:FOR J=1 TO 2 
165 A(I,J)=A(I,J)+l 
170 IF A(I,J)=4 THEN A(I,J)=0 

175 NEXT J:NEXT I 
180 A$="T" 

190 GOTO 800 

200 IF XOASCC’Y") THEN 250 

210 FOR 1=1 TO 3 

220 A(1,I)=A(1,I)+l 

235 IF A(1,I)=4 THEN A(1,I)=0 

240 NEXT I 

245 A$="Y" 

246 GOTO 800 

250 IF XOASCC'U") THEN 300 

260 FOR 1=1 TO 2:FOR J=2 TO 3 

265 A(I,J)=A(I,J)+l 

270 IF A(I,J)=4 THEN A(I,J)=0 

275 NEXT J:NEXT I 

280 A$="U" 

290 GOTO 800 

300 IF XOASCC'G") THEN 350 

310 FOR 1=1 TO 3 

320 A(I,1)=A(I,1)+l 

325 IF A(I,1)=4 THEN A(I,1)=0 

330 NEXT I 

335 A$="G" 


340 GOTO 800 

350 IF XOASCC'H") THEN 400 
360 FOR 1=1 TO 3:FOR J=1 TO 3 
365 A(I,J)=A(I,J)+l 
370 IF A(I,J)=4 THEN A(I,J)=0 


154 
































375 

380 

390 

400 

410 

415 

420 

430 

435 

440 

450 

460 

465 

470 

475 

480 

490 

500 

510 

515 

520 

530 

535 

540 


NEXT J:NEXT I 
A$="H" 

GOTO 800 

IF XOASCC'J") THEN 450 

FOR 1=1 TO 3 

A(1,3)=A(1,3 )+l 

IF A(I,3)=4 THEN A(I,3)=0 

NEXT I 

A$="J" 

GOTO 800 

IF XOASCC'B") THEN 500 

FOR 1=2 T0 3:FOR J=1 T0 2 

A(I,J)=A(I,J)+l 

IF A(I,J)=4 THEN A(I,J)=0 

NEXT J:NEXT I 

A$="B" 

GOTO 800 

IF XOASCC'N") THEN 550 

FOR 1=1 T0 3 

A(3,I)=A(3,I)+1 

IF A(3,I)=4 THEN A(3,I)=0 

NEXT I 

A$="N" 

GOTO 800 


550 IF XOASCC'M") THEN 120 

560 FOR 1=2 TO 3:FOR J=2 T0 3 

565 A(I,J)=A(I,J)+l 

570 IF A(I,J)=4 THEN A(I,J)=0 

580 NEXT J:NEXT I 

590 A$="M" 

795 REM _ 

796 REM - AFFICHAGE SITUATION 

797 REM _ ; __ 

800 C=C+1 

810 PRINT " TYU":PRINT "GHJ":PRINT "BNM" 
820 PRINT "COUP N ";C 
830 PRINT A$ 

840 GOTO 80 

995 REM ___ 

996 REM - FIN DE PARTIE 

997 REM ____ 

1000 FOR 1=1 TO 5:PRINT " ";:NEXT I 
1005 FOR 1=0 TO 300:NEXT I 

1010 PRINT " UNE AUTRE PARTIE (0/N) ?" 

1020 GET #1,X 

1030 IF X=ASC("0") THEN 50 

1040 IF XOASCC'N") THEN 1020 

1050 GRAPHICS 0 


OMMENTAI RES : 

igné 4 à 45 : présentation et 
i t i al isation du jeu 
Ligne Ai à 73 : tirage aléatoire des 
couleurs 


Ligne 75 à 96 : a-f-fichage du carré 
Ligne 97 à 110 : test de contrôle 
Ligne 120 à 590 : programme principal 
Ligne 795 à 840 : a-f-fichage de la 
si tuâtion 

Ligne 995 à 1050 : -fin de la partie 


ATARI 600/800 XL 


THE WALL 


Retrouvez les joies du « casse-briques »> 
dans une version particulièrement réussie. 
Jouez avec les touches 
droite et gauche du curseur. 



5 REM 

6 REM 

7 REM 


-MUR- 


40 P0KE 710,0 
50 P0KE 752,1 
95 REM 







































96 REM - DESSIN DU TABLEAU 

97 REM _ _ 

100 PRINtT"SCORE : ";SC 
110 FOR 1=2 TO 36 

120 POKE 40080+1,128 

130 NEXT I 

140 FOR 1=2 TO 23 

150 POKE 40002+1*40,128 

160 POKE 40036+1*40,128 

170 NEXT I 

180 FOR 1=6 TO 10 

190 POSITION 3,I:PRINT "" 

200 NEXT I 

210 X=18:Y=22:DY=-1:DX=0:R=18:DR=0:SC=0 
220 POKE 40937,77:POKE 40938,77:POKE 40939,77 

225 REM _ 

226 REM - MVMENTS RAQUETTE&BALLE - 

227 REM __ 

230 K=PEEK(754)*SGN(PEEK(753)) 

235 DR=0 

240 IF K=6 AND R>4 THEN DR=-2 
250 IF K=7 AND R<34 THEN DR=2 
260 DD=PEEK(40000+(Y+DY)*40+X+DX) 

270 IF DD=0 THEN 300 

275 IF DD=205 THEN POKE 40000+(DY+Y)*40+DX+X, 0: DY=-DY: 5c - Sc ■+ 'o * CoSu6 «cio: ffoTo .260 
280 IF X=3 OR X=35 THEN DX=-DX:30SUB 500:GOTO 260 

295 REM _ 

296 REM - AFFICHE RAQUETTE&BALLE - 

297 REM _ 

300 IF Y=23 THEN 700 

310 POKE 40000+Y*40+X,0 
320 X=X+DX:Y=Y+DY 
330 POKE 40000+Y*40+X,84 
340 DD=R+DR+40920 
350 R=R+DR 

360 IF DR=-2 THEN POKE DD+2,0:POKE DD+3,0:P0KE DD,77:P0 : :E DD-4/77 
380 POSITION 21,0:PRINT SC 
39Û GOTO 230 

495 REM ___ 

496 REM - SON DE COLLISION 

497 REM __ 

500 SOUND 0,200,10,10 

510 FOR 1=0 TO 5 
520 NEXT I 

530 SOUND 0,0,0,0 / 

540 RETURN 

695 REM _ 

696 REM - PERDU 

697 REM _ 

700 FOR 1=255 TO 0 STEP -1 

710 SOUND 0,1,10,15 

720 NEXT I 

730 SOUND 0,0,0,0 

740 IF PEEK(753)=0 THEN 740 

750 RUN 


COMMENTAIRES : Ligne 300 à 3?Q : affichage de la 

Ligne 100 à 220 : dessin du tableau raquette et de la balle 

Ligne 230 à 280 : mouvement de la Ligne 500 à 540 : routine de son 

raquette Ligne 700 à 750 : fin de la partie 
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ATARI 600/800 XL 

SKI 


Vous dévalez des pentes enneigées 
• en évitant tous les arbres. 

Classique ? Essayez les cinq niveaux de difficulté 
avant de juger... 

Utilisez les touches du curseur 



-DESCENTE A SKI— 


5 REM _ 

6 REM- 

’ 7 REM _____ 

1 10 POKE 741,0:POKE 742,150 

I15 FOR 1=38400 T0 38431 
20 READ A:POKE I,A 
'30 NEXT I 
; 35 DIM A$(3) 

40 DATA 24,36,60,24,25,38,68,136 

41 DATA 24,36,60,24,165,195,129,129 

42 DATA 24,36,60,24,152,100,34,17 

43 DATA 24,24,60,126,255,126,24,24 

(45 REM _ 

46 REM - 

47 REM 


PRESENTATION 


DESCENTE A SKI 


BONNE CHANCE ! ! ! 


50 PRINT " 

152 POKE 752,0 

54 POSITION 2,6:PRINT "EVITEZ LES ARBRES EN VOUS DIRE KN 
I * > 

55 POSITION 15,10:PRINT "<- GAUCHE" 

: 56 POSITION 15,12:PRINT "-> DROITE" 

57 POSITION 12,20:PRINT "DIFFICULTE (0-5) ";:INPUT DF:T 
(• 

I58 POKE 752,1 
j59 POSITION 12,20:PRINT 
60 FOR 1=0 TO 1000:NEXT I 
65 PRINT " " 

70 SC=0:Y=15:D=0 

80 POKE 709,8:POKE 710,14:POKE 756,150 

94 REM ___ 

95 reM -BOUCLE PRINCIPALE 

196 REM , --- 

100 X=PEEK(754)*SGN(peEK(753)):D=0 

105 IF X=6 AND Y>10 THEN D=-l 
110 IF X=7 AND Y<29 THEN D=+l 
115 Y=Y+D 

1120 IF PEEK(40040+Y)=67 THEN 200 
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150 Y1=INT(RND(0)*10+10) 

160 Y2=INT(RND(0)*10+20) 

170 POSITION Y1,23:PRINT POSITION Y2,23:PRINT 
180 POKE 40000+Y,D+65 
185 SC=SC+1 

190 FOR 1=50 TO DF*10 STEP -1 

195 NEXT I: GOTO 100 

196 REM __ 

197 REM - COLLISION 

198 REM ■ _ 

200 FOR 1=15 TO 0 STEP -1 

210 SOUND 0,100,2,1 
220 POKE 710,1 
230 FOR J=0 TO 20 
240 NEXT J 
250 NEXT I 
255 PRINT " " 

260 POKE 756,224:POKE 710,4:POKE 709,10:POKE 752,0 

265 REM _ 

266 REM - FIN DE PARTIE 

267 REM __ 

270 PRINF"" SCORE = ";SC*(DF+1) 

280 PRINT " UNE AUTRE PARTIE (0/N) 

290 INPUT A$ 

300 IF A$="0" THEN 50 
310 IF A$< >"N" THEN 290 


- ] 


programme 

Ligne 94 à 195 : programme principal 
Ligne 196 à 260 : test des collisions 
Ligne 265 à 370 : -fin de partie 


COMMENTAIRES : 

Ligne 5 à 43 : initialisation des 
variables 

Ligne 45 à 80 : présentation du 


- ATARI 600/800 XL - 

STAR DEFENŒ 

Cinq niveaux de difficulté 

pour une féroce bataille contre de nouveaux envahisseurs 
plus terrifiants que jamais... 

Les deux touches du curseur servent à vous déplacer, 
la barre d'espace à tirer. 


5 REM _ 

6 REM-STAR DEFENCE- 

7 REM _ 

10 DIM X(5),Y(5) 

15 GRAPHICS 7 

20 PRINT " <- GAUCHE" 

30 PRINT " -> DROITE" 

40 PRINT " SPC TIR" 

100 REM _ 

101 REM - TIRAGE ALEATOIRE 

102 REM _ 

110 COLOR 1 

120 FOR 1=0 TO 2*3.14 STEP 3.14/8 
130 PLOT 80+COS(I)*5,4O+SIN(I)*5 
140 NEXT I 

150 PLOT 80,40:DRAWTO 80,36 

170 FOR 1=0 TO 5 

180 X(I)=INT(RND(0)*154+3 ) 

190 Y(I )=INT(’RNnfO)*7d+3 T 
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195 IF (X(I)-80)~2+(Y(I)-40)~2<625 THEN 180 

200 NEXT I 

205 C0L0R 2 

210 FOR 1=0 TO 5 

220 PLOT X(I)-3,Y(I)-3:DRAWTO X(I)+3,Y(I)+3 
230 PLOT X(I)-3,Y(I)+3:DRAWTO X(I)+3,Y(I)-3 
240 NEXT I 
250 A=-3.14/2 

255 PRINT " DIFFICULTE (1-5) ":INPUT D 

256 IF D<1 OR D>5 THEN 255 

257 D=INT(D):SC=0 
295 REM 


296 REM - 

297 REM 


PROGRAMME PRINCIPAL 


300 K=PEEK(754')*SGN(PEEK( 753 ) ) 

305 B=0 

310 IF K=7 THEN B=3.14/8 
320 IF K=6 THEN B=-3.14/8 

325 IF K=33 THEN GOSUB 500 

326 SOUND 0,0,0,0 

330 COLOR 0: PLOT 80,40:DRAWTO 80+C0S(A)*4,40+SIN(A)*4 
340 A=A+B 

350 COLOR 1 :PLOT 80,40:DRAWT0 80+C0S(A)*4,40+SIN(A)*4 

355 COLOR 0 

360 FOR 1=0 TO 5 

370 PLOT X(I)-3,Y(I)-3:DRAWTO X(I)+3,Y(I)+3 

380 PLOT X(I)-3,Y(I)+3:DRAWTO X(I)+3,Y(I)-3 

390 NEXT I 

100 FOR 1=0 TO 5 

105 Z=INT(RND(0)*2) 

410 X(I)=X(I)+SGN(80-X(I))*Z*D 
120 Y(I)=Y(I)+SGN(40-Y(I))*(1-Z)*D 
130 NEXT I 
KO COLOR 2 
450 FOR 1=0 TO 5 

460 PLOT X(I)-3,Y(I)-3:DRAWTO X(I)+3,Y(I)+3 
470 PLOT X(I)-3,Y(I)+3:DRAWTO X(I)+3,Y(I)-3 
480 NEXT I 

■ 485 FOR 1=0 TO 5:IF X(I)>77 AND X(I)<83 AND Y(I)>37 AN 
490 GOTO 300 

495 REM _ _ 

496 REM - 

497 REM 



PROGRAMME TIR 


300 X=80+COS(A )*7 
510 Y=40+SIN(A)*7 

515 COLOR 0 

516 PLOT X,Y 

320 X=X+C0S(A)*2 
330 Y=Y+SIN(A)*2 

540 IF Y<0 OR Y>79 OR X<0 OR X>159 THEN RETURN 

550 LOCATE X.Y.Z 

560 IF ZOO THEN 600 

565 COLOR 3 

570 PLOT X,Y 

580 SOUND 0.X+50,10,10 

390 GOTO 515 

395 REM _ _ 

[596 REM - 
I597 REM 


VAISSEAU TOUCHE 


: 600 SOUND 0,X+50,4,10 
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605 W=100000 
610 FOR 1=0 TO 5 
615 Z=(X(I)-X)~2+(Y(I)—Y)~2 
620 IF W>Z THEN W=Z:U=I 
630 NEXT I 

632 SC=SC+(200-10*INT(W))*D 

633 PRINT " SCORE : ";SC 
635 COLOR 0 

640 PLOT X(U)-3,Y(U)-3:DRAWTO X(U)+3,Y(U)+3 


650 PLOT X(U)-3,Y(U)+3:DRAWTO X(U)+3,Y(U)- 
660 Y(U)=92:X(U)=INT(RND(0)*154+3) 

670 RETURN 

695 REM __ 

696 REM - PERDU ! ! 

697 REM __ 

700 FOR 1=15 TO 0 STEP -0.1 

710 POKE 712,1 
720 SOUND 0,100,8,1 
730 NEXT I 

740 IF PEEK(753)=0 THEN 740 
750 RUN 


COMMENTAIRES : 

Ligne 5 à 40 : initialisation des 
variables et présentation du programme 
Ligne 100 à 257 : positionnement 
aléatoire de la base et des envahisseurs 

(X) 


Ligne 295 à 490 : programme principal 
Ligne 495 à 590 : sous programme de tir 
(et son) 

Ligne 595 à 670 : sous programme de tesi 

des vaisseaux touchés 

Ligne 695 à 750 : partie rendue 


- A TARI 600/800 XL - 

RALLYE 

Essayez de survivre le plus longtemps possible 
dans ce labyrinthe infernal. 

Vous changez la direction de votre véhicule 
grâce aux touches E, S, D et X. 



5 REM ___ 

6 REM-RALLYE- 

7 REM ___ 

10 POKE 82,0:POKE 709,10:POKE 710,4 

15 POKE 752,1 

20 PRINT " RALLYE 

30 PRINT " PARCOUREZ LE PLUS LONG TRAJET 
50 FOR 1=1 TO 1000:NEXT I 
60 POKE 710,0:POKE 709,14 

65 REM _ 

66 REM - DESSIN DU LABYRINTHE 

67 REM ' _ 


160 




































70 PRINT "" 
80 PRINT ".. 

82 PRINT 

■ 

84 PRINT 


86 PRINT 


86 PRINT 

90 PRINT . . • 

[92 PRINT ". 

| • 

94 PRINT ". • • • 

96 PRINT "... 

98 PRINT.". • 


• • • • 


• ••••••• 


100 PRINT 


110 

115 

116 
117 
120 
130 
140 

| 150 
160 
170 
180 
190 
| 200 
210 
220 
230 

495 

496 

497 
500 
510 
520 
530 
540 

; 550 
560 
570 

595 

596 

597 
600 
610 
620 
640 
650 
660 


X=22:Y=21:DX=1:DY=0:DD=3 
REM 


REM - BOUCLE PRINCIPALE 

REM ----- 

K=PEEK(754)*SGN(PEEK(753)) 

IF K=42 AND DY=0 THEN DX=0:DY=-1:DD=0 
IF K=22 AND DY=0 THEN DX=0:DY=+1:DD=1 
IF K=62 AND DX=0 THEN DY=0 : DX=^1 : DD=2 
IF K=58 AND DX=0 THEN DY=0:DX=+1:DD=3 
POKE 40000+Y*40+X,0 
X=X+ DX:Y=Y+DY 

IF PEEK(40000+Y*40+X)=14 THEN 500 
POKE 40000+Y*40+X f 92+DD 
SC=SC+1 

POSITION 10,O:PRINT "SCORE = ";SC 

GOTO 120 

REM 


REM - 
REM 


COLLISION 


FOR 1=15 TO 0 STEP -1 

FOR K=0 TO 3 

SOUND 0,100,4,1 

POKE 40000+YM0+X, 92+K 

FOR J=0 TO 5 

NEXT J 

NEXT K 

NEXT I 

REM_ 

REM - 
REM 


FIN DE PARTIE 


SCORE FINAL 




; SC ; 


PRINT " 

POKE 752,0 

PRINT " UNE AUTRE PARTIE (0/N) ? 
IF PEEK(754)=8 THEN RUN 
IF PEEK(754)< >35 THEN 640 
POKE 709,10:POKE 710,4:POKE 82,2 


1ENTAIRES : 

igné 5 à 60 : présentation du jeu 
iigne 65 à 110 : dessin du labyrinthe 


Ligne 11 à 230 i 
Ligne 495 à 570 
Ligne 595 à 660 


boucle principale 
: cas d'une col 1ision 
: -fin de partie ► 
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-^- ATARI 600/800 XL - 

REVE DE CHENILLE 

Mangez toutes les étoiles 
mais évitez les météorites si vous voulez devenir 
une super-chenille 

capable d'affronter solitudes glacées et 
immensités infinies... 

E = haut, S = gauche, D = droite et X = bas. 



5 REM 


6 REM-CHENILLE- 

7 REM ___ 

10 DIM A$(200) 

20 L=10 

30 A$="llllllllll" 

40 TX=20:TY=20 
50 QX=10:QY=20 
60 P0KE 752,1 
70 G0SUB 700 

85 REM _ 

86 REM - AFFICHAGE 

87 REM _ . 

90 PRINT " " 

95 FOR 1=0 T0 60:P0KE 40040+INT(RND(0)*960),10:NEXT I 

96 FOR 1=0 TO 10:P0KE 40040+INT(RND(0)*960),84:NEXT I 
100 FOR 1=11 T0 20 

110 P0KE 40800+1,84 
120 NEXT I 

130 IF PEEK(753)=0 TKEN 130 

145 REM __. 

146 REM - MOUVEMENT TETE & QUEUE 

147 REM ____ 

150 K=PEEK(754) 

160 IF K=62 THEN DD=0:TX=TX-1 
165 IF K=58 THEN DD=1:TX=TX+1 
170 IF K=42 THEN DD=2:TY=TY-1 
175 IF K=22 THEN DD=3:TY=TY+1 

180 IF TX<0 OR TY<1 OR TX=40 OR TY=24 THEN 500 
190 CC=VAL(A$(1,1)) 

195 PP=PEEK(40000+TX+TY*40) 

196 IF PP=84 THEN 500 

200 IF PP=10 THEN C=C+3:SC=SC+10:G0SUB 400 

205 IF C<=0 THEN A$=A$(2,L):GOTO 209 

206 L=L+1:C=C-1:CC=4 
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[209 A$ ( L, L)=STR$(DD) 

! 210 QX=QX+(CC=1)-(CC=0) 
220 QY=QY+(CC=3)-(CC=2) 
225 REM 


226 REM - AFFICHAGE TETE & QUEUE - 

227 REM __ 

230 POKE 40000+TX+TYM0.84 

240 POKE 40000+QX+QY*40,0 
250 PRINT " SCORE :’";SC 
260 GOTO 150 
395 REM 


396 REM - 

397 REM 


SON D AVALEMENT 


400 FOR 1=15 TO 0 STEP -1.5 
410 SOUND 0,16*1,10,1 
420 NEXT I 
430 SOUND 0,0,0,0 
440 RETURN 

495 REM __ 

496 REM - 

497 REM 


FIN DE PARTIE 


500 C=10 

510 FOR 1=15 TO 0 STEP -0.5 

520 SOUND 0,200,8,1 

530 POKE 40000+TX+TY*40,C 

540 C=94-C 

550 NEXT I 

560 POSITION 10,12 

570 PRINT " UNE AUTRE PARTIE (0/N) ? 
580 IF PEEK(754)=8 THEN RUN 
590 IF PEEK(754)< >35 THEN 580 
600 GRAPHICS 0 
610 END 

695 REM __ 

696 REM - 

697 REM- 


PRESENTATION 


700 PRINT " CHENILLE 

710 PRINT "DIRIGEZ VOTRE CHENILLE A L'AI 

DE DES TOUCHE?. 

DG H iMfnr fl V e 

730 FOR 1=0 TO 1000:NEXT I 
740 RETURN 


1 ENTAI RES 


70 


initialisation des 


|Ligne 5 à 
ir i abl es 

igné 85 à 130 : at-fichage des 
lii-ftérentes étoiles aléatoirement 
igné 145 à 225 : sous programme des 


- ATARI 600/800 XL - 

ALPHATACK 

Toutes les lettres de votre abécédaire 
ont été prises de folie. 
Remettez-les dans l'ordre pour gagner... 
le droit de recommencer! 


déplacements chenille 

Ligne 225 à 260 : a-f-fichage des 

différents déplacements 

Ligne 395 à 440 : sous programme sons 

Ligne 495 à 610 : -fin de la partie 

Ligne 695 à 740 : présentation du 

programme 


m 



5 REM -- 

6 REM-ALPHATACK- 

7 REM _ 


10 DIM A(6,6) 

11 GOSUB 1000 

12 OPEN #i 4,0,"K:" 

15 X=5: 7=5 

































270 NEXT 
280 END 
290 REM 

295 REM 

296 REM 

297 REM ' 


JOUE LE COUP 


20 PRINT " VEUILLEZ PATIENTEZ UNE MINUTE 
30 C=500 

35 REM__ 

36 REM - TIRAGE ALEATOIRE 

37 REM __ 

40 FOR 1=1 TO C 

50 D=SGN(INT(RND(0)*2)-0.5) 

60 E=INT(RND(0)*2) 

70 X=X+D*(1-E) 

80 Y=Y+D*E 

90 IF X>5 OR X<1 THEN X=X-D:GOTO 50 
100 IF Y>5 OR Y<1 THEN Y=Y-D:GOTO 50 
110 A(X-D*(1-E),Y-D*E)=A(X,Y) 

120 A(X,Y)=32 
130 NEXT I 

135 REM _ 

136 REM - AFFICHAGE 

137 REM __ 

140 GRAPHICS 18 

145 C=0 

150 FOR 1=1 TO 5 
160 FOR J=1 TO 5 
170 POSITION J,I 
180 PRINT #6 ;CHR$(A(I,J)) 

190 NEXT J 
195 NEXT I 

200 POSITION 7,5:PRINT #6;"COUP N ";C 

205 REM___ 

206 REM - TEST DU COUP 

207 REM _ 

210 GET #1,K 

220 IF K<65 OR K>88 THEN 210 

230 FOR 1=1 TO 5 

240 FOR J=1 TO 5 

250 IF A(I,J)=K THEN 300 

260 NEXT J 


COMMENTAIRES : 

Ligne 5 à 30 : initialisation du jeu 
Ligne 35 à 130 : tirage aléatoire des 
lettres 

Ligne 135 à 200 : affichage des lettres 


310 IF A(I+1.J)=32 THEN A(1+1,J)=A(I,J):A( 
I,J)=32: GOTO 35o 

330 IF A(I t J+l)=32 THEN A(I,J+1)=A(I,J):A( 

I, J )=32 : GOTO 350 

350 C=C+1 

360 FOR 1=1 TO 5 

370 FOR J=1 TO 5 

380 IF A(I,J)=59+I*5+J THEN NEXT J:NEXT I 
390 IF A(5,5)032 OR I< >5 OR J< >5 THEN 150 

395 REM ___ 

396 REM - FIN DE PARTIE 

397 REM ___ 

400 GRAPHICS 18 

410 PRINT #6;"gagne en ";C;" coups" 

420 PRINT #6 

430 PRINT #6;"UNE AUTRE ?" 

440 IF PEEK(754)=8 THEN RUN 
450 IF PEEK( 754 )035 THEN 440 
460 GRAPHICS 0 
470 END 

995 REM _ 

996 REM - INITIALISATION TAB 

997 REM __ 

1000 FOR 1=1 TO 5 

1010 FOR J=1 TO 5 
1020 A(I,J)=59+I*5+J 
1030 NEXT J 
1040 NEXT I 
1050 A(5,5)=32 
1060 RETURN 


Ligne 205 à 280 : test d'un coup 
Ligne 295 à 390 : le coup est joué 
Ligne 395 à 470 : fin de partie 
Ligne 995 à 1060 : initialisation du 
tableau 


- ATARI 600/800 XL - 

JACK-POT PARTY 


On vous refuse systématiquement l'entrée des casinos ? 
Défoulez-vous à domicile 

Avec ce superbe Jack-pot. Utilisez les touches 1 à 4 
pour faire tourner les différentes roues 
de la machine ou 

la barre d'espacement pour lancer toutes les roues 

simultanément. 


5 REM_ 

6 REM-JACK POT- 

7 REM_ 

10 OPEN #1,4,0,"K:" 

15 GOSUB 700 

16 POKE 710,0 
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>0 FOR T=1 TO 8 
30 PRINT " 

10 NEXT T 
>0 PRINT 
[60 PRINT 
70 PRINT 

100 FOR T=1 TO 10 
90 PRINT " 

100 NEXT T 

105 REM _____ 

106 
107 
1110 

L20 
L25 


INITIALISATIONS 


REM - 

REM __ 

DIM A(7),L(7) 

S=0 

FOR 1=0 TO 6:READ A:L(I)=A:NEXT 


L26 DATA 16,123,96,0,20,35,36 
L30 REM 


L31 

L32 

L40 

L50 


REM - 
REM 
FOR 


BOUCLE DE JEU 


R=1 TO 4 

C=L(INT(RND(0)*7 ) ) 

[160 A(R)=C 
'170 NEXT R 
L80 W=0 
190 PRINT 
Il95 PRINT 

L96 POSITION 5,6:PRINT 
200 FOR R=1 TO 4 

210 POSITION 6*R,9:PRINT CHR$(A(R)) 
220 NEXT R 

225 REM ___ 

226 REM - 

227 REM 



CALCUL DU GAIN 


230 T=INT(RND(0)*6) 

240 IF T=1 THEN 390 

250 IF A(1)=A(2) THEN W=20 

260 IF A(1)=A(2) AND A(2)=A(3) THEN W=100 

270 IF W=100 AND A(3)=A(4) THEN W=500 

280 S=S-10 

:290 IF W>0 THEN 350 

300 POSITION 10,15:PRINT "CREDIT=";S;"FR 

310 REM _____ 

[311 REM - NOUVEAU COUP 

1312 REM __ 

320 IF PEEK(753)=0 THEN 320 (f 

330 POSITION 12,4:PRINT " 

340 GOTO 130 „ „ „ 

350 POSITION 12,4:PRINT " GAIN: ;W; FR 


360 S=S+W 
370 W=0 
380 GOTO 300 
|390 REM _ 

391 REM - 

392 REM 


EFFECTUE TILT 


395 GET #1,G 
100 FOR H=1 TO 4 
|410 POSITION 14,2:PRINT " 

J 420 GOSUB 670 

[430 POSITION 14,2:PRINT "TILT 
140 GOSUB 670 
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450 NEXT H 

460 E=INT(RND(0)*5)+2 
470 FOR R=1 TO E 
48°. B=0 

490 POSITION 12,3:PRINT E-R+l;" ESSAIS" 

500 GET #1,G 

520 IF G=49 THEN B=1 

530 IF G=50 THEN B=2 

540 IF G=51 THEN B=3 

550 IF G=52 THEN B=4 

560 IF B=0 THEN 620 

570 ZfA(B) 

580 Y=L(INT(RND(0)*7)) • 

590 IF Y=Z THEN 580 
600 A(B)=Y 

610 POSITION 6*B,9:PRINT CHR$(A(B)) 

620 NEXT R 

640 POSITION 14,2:PRINT " " 

650 POSITION 12,3:PRINT " 


COMMENTAIRES : 

Ligne 5 à 100 : initialisation des 

variables et dessin de l'écran 

Ligne 105 à 126 : création des tableaux 

de stockage des données 

Ligne 130 à 220 ! programme principal 

Ligne 225 à 300 : calcul des différents 


660 GOTO 250 

665 REM __ 

666 REM - SON DU GAIN 

667 REM ___ 

670 FOR R=1 TO 10 

675 SOUND 0,200,10,10 
680 NEXT R 
685 SOUND 0,0,0,0 
690 RETURN 

695 REM _ 

696 REM - PRESENTATION 

697 REM ______ 

700 PRINT " JACKPOT 

710 PRINT "APPUYER SUR UNE TOUCHE POUR FA 
IRE TOURNER" 

720 PRINT "QUAND TILT S'ALLUME APPUYEZ 1 
234 SUIVANT” 

730 PRINT " APPUYER UNE TOUCHE S.V.P" 
740 IF PEEK(753)=0 THEN 740 
750 RETURN 


gains 

Ligne 310 à 380 : calcul d'un nouveau 
coup 

Ligne 390 à 660 : sous programme de 1 
nouvelle partie et des différents son 
Ligne 665 à 690 : sous programme son 
Ligne 696 à 750 : présentation du jeu 


- ATARI 600/800 XL — 

INVADERS 


Ils tirent sans cesse sur vous, 
se rapprochent imperturbablement pour peu que 
vous les laissiez faire et 
ne souhaitent qu'une chose : votre mort. 

Utilisez les deux touches du curseur et la barre d'espace 
si vous tenez à votre peau... 
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50 FOR Y=1 TO 22 

30 FOR XX=5*Z TO 5*(2-Z) STEP (l-Z)/INT((29-Y)/6) 
35 X=INT(XX) 
b GOSUB 200 
30 NEXT XX 
90 Z=2-Z 
DO NEXT Y 
L10 END 

195 REM _ 

196 REM - 
L97 REM 


TEST CLAVIER+MOUVEMENTS - 


00 K=PEEK(754)*SGN(PEEK(753)) 

10 IF K=33 AND T=0 THEN T=1:U=W:V=23 
.20 IF K=6 AND W>0 THEN W=W-1 
30 IF K=7 AND W<39 THEN W=W+1 
235 S=S+1 

240 IF S>23 THEN S=Y:R=INT(RND(0)*15)*2+X 
45 IF S=23 AND R=W THEN 450 
:50 v=v-i 

60 IF V<1 THEN T=0 
95 REM 


Ï96 REM - 
297 REM 


AFFICHAGE 


jOO PRINT " SCORE : ";SC 

05 POKE 40920+W,88 

06 POKE 40000+S*40+R,93 

07 IF T=1 THEN POKE 40000+V*40+U,92 

10 POSITION X,Y:PRINT A$ 

20 IF Y+2>22 THEN 400 
25 POSITION X,Y+2:PRINT B$ 

130 IF Y+4>22 THEN 410 
5 POSITION X,Y+4:PRINT C$ 

IF Y+6>22 THEN 420 
5 POSITION X,Y+6:PRINT D$ 

50 IF T=1 AND PEEK( 39960+V*40+U)<>0 THEN GOSUB 500 
60 RETURN 
95 REM __ 


140 


396 REM - 

397 REM 


TEST COLLISION 


410 

415 


00 IF B$=E$ THEN 330 
05 GOTO 450 

IF C$=E$ THEN 340 
GOTO 450 
20 IF D$=E$ THEN 350 
25 GOTO 450 

50 FOR 1=15 TO 0 STEP -0.2 
60 SOUND 0,150,6,1 
NEXT I 

80 FOR 1=0 TO 500:NEXT I 
85 REM _ 

186 REM - 

187 REM 


470 


NOUVELLE PARTIE? 


90 POSITION 10,10:PRINT J UNE AUTRE PARTIE (O/N) 

92 IF PEEK(754)=8 THEN RUN 

93 IF PEEK(754)< >35 THEN 492 

94 POKE 82,2:GRAPHICS 0:END 

QC F.M 

96 REM - SUPRIME UN VAISSEAU 

97 REM __ 

500 V=V-1 

310 IF Y=V THEN A$(U-X+1,U-X+1)=" ":SC=SC+100 
320 IF Y+2=V THEN B$(U-X+1,U-X+1)=" ":SC=SC+50 
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530 IF Y+4=V THEN C$(U-X+1,U-X+1)=" ":SC=SO20 

540 IF Y+6=V THEN D$(U-X+1,U-X+1)=" ":SC=SC+10 
550 T=0 

560 FOR 1=15 TO 0 STEP -1 
570 SOUND 0,100,8,1 
580 NEXT I 
590 RETURN 
595 REM _ 


596 REM - 

597 REM 


PRESENTATION 


600 PRINT " INVADERS 

610 PRINT "DIRIGEZ VOTRE VAISSEAU 

630 PRINT " APPUYER SUR UNE TOUCHE S.V.P" 
640 IF PEEK(753)=0 THEN 640 
650 RETURN 


GRACE AUX TOUCHE" !£* 


COMMENTAIRES : 

Ligne 10 à 45 : initialisation des 
variables 
Ligne 50 à 110 
Ligne 200 à 260 
mouvement 


boucle principale 
i teste clavier et 


Ligne 300 à 360 
Ligne 400 à 480 
Ligne 490 à 494 
Ligne 496 à 590 
d'un vaisseau 
Ligne 595 à 650 
présentâtion 


affichage du décor 

teste de col 1ision 
une autre partie 
teste et suppression 

sous programme 


APPLE II et Ile 


NUCLEAR 


Principe simple mais réalisation ardue, 
Nuclear exige une concentration parfaite : 
Vous devez en effet 
vous déplacer cinq cents fois 
sans jamais repasser au même endroit. 

S = gauche, D = droite, C = bas, R = haut. 



10 REM EFFECTUE UN PASSAGE EN M 
ODE TEXTE SI L’ORDINATEUR N’ 
Y ETAIT PAS 
20 TEXT 

30 REM EFFACE L’ECRAN 

40 REM ET RAMENE LE CURSEUR EN 


HAUT ET A GAUCHE 
50 HOME 

60 REM L’ORDRE SPEED INDIQUE LA 
VITESSE D’AFFICHAGE 
70 REM SPEED=0 INDIQUE UN AFFIC 
HAGE TRES LENT 
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REM PAR CONTRE SPEED=255 PRO 
VOQUE L’AFFICHAGE LE PLUS RA 
PIDE POSSIBLE SUR APPLE II 
>0 SPEED= 255 

lOO PRINT " NUCLEAR - 

110 VT AB 15 

120 PRINT "VOULEZ VOUS DES INSTR 
UCTIONS ?" 

130 GET A* 

140 REM TEST CLAVIER 
150 IF A* = “N" THEN 280 
160 IF A* < > "O" THEN 130 

170 REM ON N’ACCEPTE QUE O OU N 

III' 

180 HOME 

190 REM EFFACE L’ECRAN 
200 PRINT "VOUS DEVEZ VOUS DEPLA 
CER 500 FOIS SANS”: PRINT : 
PRINT 

: PRINT "JAMAIS REPASSER AU 
MEME ENDROIT ! ! ! " 

210 VT AB 15 

220 REM POSITIONNE LE CURSEUR'S 
UR LA 15EME COLONNE 
230 PRINT "EVITER AUSSI LES X ! ! 


240 

250 

260 

270 

280 

290 

500 

310 

520 

530 

340 

350 

360 

370 

380 

390 
400 
410 
420 
430 
440 
450 
460 
470 
i 480 
490 
i 500 


24) 


39) +1 

*24) + 1 


VT AB 20 

PRINT “APPUYEZ SUR ’D’ POUR 
COMMENCER ." 

GET A* 

IF A* < > "D" THEN 260 

HOME 

REM CHOIX ALEATOIRE DE LA L 
IGNE ENTRE 1 ET 23 
X = INT ( RND (1) * 

IF X = O THEN 300 
FOR R = 1 TO 50 

Y = INT ( RND (1) * 

X = ( INT ( RND (1) 

) 

HT AB Y: VT AB X 
PRINT "X"} 

NEXT 

REM CHOIX ALEATOIRE DE LA C 
OLONNE ENTRE 1 ET 38 

Y = INT ( RND (1) * 39) 

IF Y = O THEN 390 
INVERSE 

HT AB Y 
VT AB X 
PRINT "+"! 

A = PEEK < - 16384) 

IF A < 128 THEN 450 
A = A - 128 
IF A = 83 THEN 570 
REM TESTE LA TOUCHE S 
IF A = 68 THEN 660 


510 

REM TESTE LA TOUCHE D 


520 

IF A = 67 THEN 730 


530 

REM TESTE LA TOUCHE C 


540 

IF A = 32 THEN 800 


550 

REM TESTE LA TOUCHE R 


560 

GOTO 450 


570 

IF Y = 1 THEN 420 


580 

E = Y - 2 


5P0 

F = X - 1 


600 

GOSUB 870 


610 

IF G < >32 THEN 900 


620 

Y = Y - 1 


630 

T = T + 1 


640 

IF T = 500 THEN 1000 


650 

GOTO 420 


660 

IF Y = 39 THEN 420 


670 

E = Y 


680 

F = X - 1 


690 

GOSUB 870 


700 

IF G < >32 THEN 900 


710 

Y = Y + 1 


720 

GOTO 630 


730 

IF X = 24 THEN 420 


740 

E = Y - 1 


750 

F = X 


760 

GOSUB 870 


770 

IF G < >32 THEN 900 


780 

X = X + 1 


790 

GOTO 630 


800 

IF X = 1 THEN 420 


810 

E = Y - 1 


820 

F = X - 2 


830 

GOSUB 870 


840 

IF G < >32 THEN 900 


850 

X = X - 1 


860 

GOTO 630 


870 

G = PEEK (1024 + E + 128 
- 984 * INT (F / 8)) 

* F 

880 

IF G > 128 THEN G = G - 

128 

890 

RETURN 


900 

HOME 


910 

NORMAL 


920 

PRINT "VOUS AVEZ PERDU ! 

! ! ! " 

930 

PRINT "VOUS N’AVEZ FAIT 
"î T J " DEPLACEMENTS ..." 

QUE 

940 

PRINT : PRINT : PRINT : 

: PRINT 

PRINT 

950 

PRINT "VOULEZ VOUS REJOUER ? 

n 

960 

GET A* 


970 

IF A* = "0" THEN RUN 


980 

IF A* = "N" THEN END 


990 

GOTO 960 


1000 HOME 


1010 PRINT "BRAVO ! ! ! ! " 


1020 GOTO 940 



1ENTAIRES : 


Igné 

)ne 


10 à 80 : 
100 à 280 


explication du jeu 
: présentation du jeu 


Li 

Li 

Li 

Li 


gne 300 à 

gne 450 à 
gne 560 à 
gne 870 à 


440 : routine principale I 

550 : test du clavier 

860 : test de col 1ision 

1020 : -fin de la parti e p. 
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13 

30 

47 

64 

SI 

98 

115 

132 

149 

166 

183 

200 

217 

234 

251 

268 

285 

302 

319 

336 

353 

370 

387 

404 

421 

438 

455 

472 

489 


- APPLE II et HE - 

TOP REFLEXES 

Une lettre apparaît sur votre écran, pressez la touche 
correspondante sur votre clavier. 

Pour lancer le jeu, 

pressez la touche D et suivez les directives données par 

l'ordinateur. 



TEXT 

HOME 

SPEED= 255 

PRINT " REFLEXES ! ! 

! " 

VT AB 15 

PRINT "VOULEZ VOUS DES INSTRU 
CTIONS ???" 

GET AS 

REM TEST CLAVIER 
IF A* = "O" THEN 183 
GOTO 353 
HOME 

PRINT "UNE LETTRE VA APPARAI 
TRE QUELQUE PART ! ! " 

VT AB 5 

PRINT "APPUYEZ LE PLUS RAPID 
EMENT POSSIBLE SUR" 

VT AB 10 

PRINT "LA TOUCHE CORRESPONDA 
NTE ! ! !" 

VT AB 15 

PRINT "APPUYEZ SUR ’D’ POUR 
COMMENCER" 

GET A* 


IF A* < 

> " D " 

THEN 

319 



HOME 

V = INT 

( RND 

( 1 ) 

* 

23) 

+ 

1 

H = 

INT 

( RND 

( 1 ) 

* 

38) 

+ 

1 

A = 

INT 

( RND 

< 1 ) 

* 

26) 

+ 

65 


506 R = R + 1 

523 REM LA VARIABLE R COMPTE LE 
S UNITES DE TEMPS 

540 IF A < > PEEK ( - 16384) - 

128 THEN 506 

557 REM TEST CLAVIER 

574 NORMAL 

591 HOME 

608 PRINT "VOTRE TEMPS EST DE 
R ; " ! ! ! " 

625 VT AB 10 

642 IF R < 10 THEN PRINT "VOUS 
ETES TRES RAFIDE !!!": GOTO 
761 

659 REM VOUS ETES VRAIMENT TRES 
FORT 

676 IF R < 25 THEN PRINT "C’EST 
PAS MAL DU TOUT ! ! !” : GOTO 
76 i 

693 IF R < 50 THEN PRINT "VOUS 
ETES UN HABITUE DU CLAVIER ! 
! !" : GOTO 761 

710 IF R < 75 THEN PRINT "UN VE 

RRE,CA VA,TROIS VERRE _": 

GOTO 761 

727 IF R < 150 THEN PRINT "VOUS 
DORMEZ OU QUOI ???"! GOTO 7 
61 

744 PRINT "C’EST FOUTU !!!" 

761 VTAB 20 

778 PRINT "VOULEZ VOUS REJOUER ? 


REM CHOIX DE L’EMPLACEMENT 
ET DU CARACTERE A AFFICHER 
VTAB V 
HT AB H 
FLASH 

PRINT CHRS (A); 


?? " 

795 GET A* 

812 REM TEST CLAVIER 
829 IF A* = “O" THEN RUN 
846 IF A* = "N" THEN END 
863 GOTO 795 
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COMMENTAIRES 



10 

REM 

220 

IF AS < > "G" THEN 210 

20 

REM 

230 

REM GET AS : ATTEND UN CARAC 

30 

REM ************************ 


TERE ET LE MET DANS AS 

40 

*** 

REM * LE MARATHON INFERNAL ! 

240 

REM 


! * 

250 

REM 

50 

PEM * MICRO-JEUX 1985 

260 

REM 


* 

270 

REM 

60 

REM * RESTEZ LE PLUS LONGTEM 

280 

HOME 


PS* 

290 

REM EFFACEMENT 

70 

REM * POSSIBLE A L’INTERIEUR 

300 

FOR I - 1 TO 25 


* 

310 

PRINT TAB( 15);"* *” 

80 

REM * DU COULOIR DE LA MORT 

* 

320 

NEXT I 

90 

REM ************************ 

330 

X = 20 


*** 

340 

Y = 15 

100 

REM 

330 

HT AB X: VT AB 1 

110 

REM 

360 

PRINT "+" 

120 

HOME 

370 

T - T + 1 

130 

TEXT 

380 

REM COMPTE LES KILOMETRES 

140 

SPEED= 255 

390 

HTAB Y; VTAB 24 

150 

CLEAR 

400 

A * INT ( RND (1) * 3) - 1 

160 

FOR I * 0 TO 9 

410 

Y = Y + A 

170 

READ AS(I) 

420 

IF Y < 1 THEN Y = 1 

180 

NEXT 

. 430 

IF Y > 30 THEN Y = 30 

190 

REM LES DIFFERENTS ASPECTS 

440 

B = INT ( RND (1) * 10): PRINT 

200 

DE LA ROUTE SONT EN DATA ... 

PRINT "APPUYER SUR ’G’ POUR 

450 

AS (B) 

E = x - i:f=o: gosub soo: if 

G < >32 THEN 690 


PARTIR" 

460 

A = PEEK ( - 16384) 

210 

GET AS 

470 

IF A < 128 THEN 350 


! ‘ Ligne 438 à 523 : compteur du temps 

Ligne 540 : test du clavier 
Ligne 608 à 659 : af-fichage du temps de 
igné 13 à 335 : présentation du jeu réponse 

igné 370'à 404 s tirage aléatoire Ligne 659 à 863 : -fin de partie 

-■-- APPLE II et HE —- 

FORMULE I 

Visibilité limitée, virages brusques, 
l'étape de nuit est souvent la plus sélective. 

Foncez quand même! 

Seul le plus audacieux triomphera... 

D vous permet d'aller à droite, G à gauche. 
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480 B = A - 128 

490 TF B = ASC l"D”l THEN 530 

500 IF B = ASC (“G") THEN 560 

510 B = O 
520 GOTO 350 

530 E = X - 2:F = O! GOSUB 800: IF 
6 < >32 THEN 690 

540 X = X - 1 
550 GOTO 350 

560 E = X:F = 0: GOSUB 800: IF G < 
> 32 THEN 690 
570 X = X + 1 

580 GOTO 350 

590 DATA * # * 

600 DATA * » * 

610 DATA * # * 

620 DATA **♦ * 

630 DATA * * 

640 DATA * # * 

650 DATA * * _ 

COMMENTAIRES : 


Ligne 10 à 110 : présentation du jeu 

Ligne 120 à 270 : début du jeu 

Ligne 300 à 370 : affichage de la route 


660 

DATA * * 


670 

DATA * #* 


680 

DATA * * 


690 

HOME 


700 

PRINT CHR* (7) 


710 

PRINT "PERDU" 


720 

HTAB i: VTAB 10 


730 

PRINT “VOUS AVEZ 

PARCOURU “ 


T / 100}* KILOMETRES !!" 

740 

HT AB i: VTAB 20 


750 

PRINT "VOULEZ VOUS REJOUER ' 

U 

760 

GET A* 


770 

IF A* = "O" THEN 

RUN 

780 

IF A* = "N” THEN 

END 

790 

GOTO 760 


800 

G = PEEK (1024 + 

E + 128 # ! 


- 984 * INT (F 

/ 8) ) 

810 

IF G > 128 THEN i 

S = G - 128 

820 

RETURN 



et compteur kilométrique 

Ligne 390 à 520 : routine principale du 

jeu 

Ligne 590 à 680 : datas de la route 
Ligne 700 à 820 : a-f-fichage de fin de la 
partie 


- APPLE II et HE - 

ORGUE MAGIQUE 

Composez, enregistrez et jouez de l'orgue 
grâce à ce programme 

concu par un spécialiste des effets sonores en 
micro-informatique. 



1 

REM 

************************ 

6 

2 

REM 

** 

ORGUE MAGIQUE 

** 

7 

3 

REM 

** 

** ** ** 

** 

10 

4 

REM 

** 

NICOLAS BARCET 

** 

17 

5 

REM 

************************ 

18 


DIM A*<500> 

D* = CHR* < 4 ) 
GOSUB 200 
REM 

REM MENU 
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19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
200 
210 
215 
21 ? 


220 

221 

227 

228 
22 ? 

230 

231 

232 

233 

235 

236 

237 

238 
4?? 

500 

501 
510 
520 

525 

526 
530 
540 

545 

546 
550' 
555 
570 
580 
585 
5?0 
5?5 
600 
605 
610 
705 
710 
800 
810 
820 
830 
835 
840 
850 
860 
?0 0 
?10 
? 15 
917 


REM 

HOME : INVERSE : PR INT 11 MENU 

NORMAL : PRINT : PRINT : PRINT : PRINT : PRINT "—> Voulez vous :" 

PRINT : PRINT "<A> ECRIRE UN MORCEAU": PRINT 
PRINT "<B> ECOUTER UN MORCEAU": PRINT 
PRINT "<C> VOIR LE CATALOG": PRINT 
VTAB 23: PRINT "VOTRE CHOIX : ": GET Ct 
IF Ct = "A" THEN G*OTO 500 

IF C* = "B" THEN GOTO 1000 

IF Ct = "C" THEN GOTO 1500 

REM 

REM INITIALISATION 
REM 

POKE 770,173: POKE 771,48: PORE 772,1?2: PORE 773,136: PORE 774,208: 

PORE 775,5: PORE 776,206: PORE 777,1: PORE 778,3: PORE 77?,240: PORE 
780,?: PORE 781,202 

PORE 782,208: PORE 783,245: PORE 784,174: PORE 785,0: PORE 786,3: PORE 
787,-76: PORE 788,2: PORE 78?,3: PORE 790, 96: PORE 791,0: PORE 792,0 
RETURN 
REM 


REM 

REM 

PORE 

NOTES 

768,240 : 

PORE 

769,255: 

,CALL 

770: 

RETURN 

PORE 

763,220 : 

PORE 

769,255: 

CALL 

770: 

RETURN 

PORE 

768,197: 

PORE 

769,255: 

CALL 

770 : 

RETURN 

PORE 

768,190 : 

PORE 

769,255: 

CALL 

770 : 

RETURN 

PORE 

763,170 : 

PORE 

769,255: 

CALL 

770: 

RETURN 

PORE 

768,150 : 

PORE 

769,255: 

CALL 

770: 

RETURN 

PORE 

768,133: 

PORE 

769,255: 

CALL 

770 : 

RETURN 

PORE 

768,125: 

PORE 

769,255: 

CALL 

770: 

RETURN 


REM 

REM JOUER 

REM JOUER 
FOR I = 1 TO 500 

INVERSE : HOME : PRINT " JOUER UN MORCEAU 

NORMAL 

PRINT "NOTE N""; I 

PRINT : PRINT : PRINT : PRINT " DO RE MI FA SOL LA SI DO" 

PRINT : PRINT " S D F G H J R L" 

PRINT : PRINT : PRINT " SILENCE = AUTRES" 

VTAB 20: PRINT "Tapez * pour Finir." 

VTAB 23: PRINT "VOTRE NOTE : ": GET At 


IF 

At 

= 

"S" 

THEN 

GOSUB 

230 

ÏF 

At 

= 

"D" 

THEN 

GOSUB 

231 

IF 

At 

s 

Il p II 

THEN 

GOSUB 

232 

IF 

At 

= 

Il QU 

THEN 

GOSUB 

233 

IF 

At 

= 

"H" 

THEN 

GOSUB 

235 

IF 

At 

= 

"J" 

THEN 

GOSUB 

236 

IF 

At 

=. 

"R" 

THEN 

GOSUB 

237 

IF 

At 

s 

Il Il 

THEN 

GOSUB 

238 

IF 

At 

= 


THEN 

800 



At <I) = At 
N EXT I 
REM 

REM ECRITURE 
REM 

HOME : INVERSE : PRINT " SAUVEGARDE 

NORMAL 

VTAB 07: PRINT "Voulez vous suvegarder ce morceau (O/N)";: GET Ct 
IF Ct = "O" THEN 900 
GOTO 20 

PRINT : PRINT "Quel nom voulez vous lui donner";: INPUT NMt 
PRINT Dt"OPEN MUS.";NMt 
PRINT Dt"WRITE MUS.";NMt 
PRINT I 







1 


920 T 

= I : FOR 

*—« 

il 

*-* 

H 

O 

T 


930 

PRINT A*<I> 



940 

N EXT I 




950 

PRINT D*" 

CLOSE MUS 

.";NM* 


960 

GOTO 20 




1000 

REM 




1001 

REM 

ECOUTE 



1002 

REM 




1010 

HOME : INVERSE : 

PRINT ■ 


1020 

NORMAL : 

VTAB 10 : 

PRINT 

"Que 


NM* 




1030 

PRINT D* 

"OPEN MUS 

.";NM* 


1035 

PRINT D* 

"READ MUS 

.";NM* 


1040 

INPUT T: 

FOR I = 

1 TO T 


1050 

INPUT A*(I) 



1055 

NEXT I : 

PRINT D* M 

CLOSE MUS." 

1060 

FOR I = 

1 TO T 



1070 

A* = A*<I> 



1100 

IF A* = 

"S" THEN 

GOSUÇ 

230 

1110 

IF A* = 

“D" THEN 

GOSUB 

231 

1120 

IF A* = 

"F’ 1 THEN 

GOSUB 

232 

1130 

IF A* = 

"G" THEN 

GOSUB 

233 

1140 

IF A* = 

"H" THEN 

GOSUB 

235 

1150 

IF A* = 

"J" THEN 

GOSUB 

236 

1160 

IF A* = 

"K" THEN 

GOSUB 

237 

1170 

IF A* = 

"L" THEN 

GOSUB 

238 

1180 

NEXT I 




1190 

PRINT : 

PRINT ; PRINT "Voule 


C* 




1200 

IF C$ = 

"O" THEN 

1060 


1210 

GOTO 20 




1500 

REM 




1510 

REM 

CATALOGUE 


1520 

REM 




1530 

HOME : ! 

INVERSE : 

PRINT 

U 

1535 

NORMAL 




1540 

PRINT D*"CATALOG" 

1 


1550 

VTAB 23 

: PRINT "TAPEZ UNE T< 

1560 

GOTO 20 





ECOUTE 


INPUT 


CATALOGUE 


COMMENTAIRES 


Ligne 1 à 5 : titre du programme 
Ligne 17 à 28 : menu des fonctions 
Ligne 200 à 221 : initialisation et 
langage machine produisant des notes 
Ligne 227 à 238 : routine de changement 


des notes 
Ligne 500 à 710 : 
Ligne 800 à 960 : 
sur la disquette 
Ligne 1000 à 1180 
Ligne 1200 à 1560 
disquette 


jouer un morceau 
sauvegarde, écriture 

: écouter un morceau 
: catalogue d'une 
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-APPLE II et HE- 


QUID? 


Concevez votre propre questionnaire 
et soumettez 

vos amis à un test impitoyable. 

L'ordinateur préfère les réponses courtes (« oui » ou « non ») 
Tapez 999 quand vous avez terminé 
la liste de vos questions et suivez alors les directives 

de l'ordinateur. 


'N 



10 
[20 
| 30 
[40 
50 
! 60 
100 
110 
120 
130 
140 
150 
| 200 
210 
220 
225 
230 
240 
250 
260 
270 
1 280 
290 
i 300 
310 
1320 
! 330 

999 

1000 
1001 
1005 
1010 
1020 


REM 

*********************** 

REM 

**** 

INTERROGATION 

**** 

REM 

**** 


**** 

REM 

**** 

NICOLAS 

**** 

REM 

**** 

BARCET 

**** 

REM 

*********************** 


— > INITIALISATIONS < — 

CHRS < 4): DIM AS<100) 
BS<100): DIM FSC 100) 
214,200- 

—> MENU <— 


REM 
REM 
REM 
DS = 

DIM 
POKE 
REM 
REM 
REM 
HOME 
INVERSE 
NORMAL 
PRINT : 
PRINT : 
PRINT : 
PRINT : 

VTAB 24: 

IF CS = “1" 
IF CS = H 2" 
IF CS = "3" 
200 


PRINT H MENU 

: PRINT : PRINT : PRINT “Voulez vous 
: PRINT "<1> COMPOSER UNE INTERROGATION “ 
"<2> ETRE INTERROGER" 

"<3> VOIR LE CATALOGUE DE LA DISQUETTE" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
THEN 
THEN 
THEN 


Entrer votre 
GOSUB 1000 
GOSUB 2000 
GOSUB 3000 


choix 


GET CS 


GOTO 
REM 

REM —> CREATION INTERRO <— 
REM 
HOME 
INVERSE 
NORMAL 
and cela 
ous ne 
r dès I 


: PRINT 1 
i : PRINT 
vous est 


INSTRUCTION 
PRINT " Vous 

demandé, puis taper 


devez écrire 
retour quand 


votre question 
elle est -finie 


qu 

v 


pouvez plus alors la modifier, ou alors il faut recommence 
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1030 


Vous 


PRINT " 
la question, 
une réponse simple 


devrez ensuite écrire la réponse qu'i 

N.B. : Il est -fortement conseillé de 
<oui ou non par exemple) car le programm 


1040 

1050 

1060 

1100 

1110 

1115 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

2000 

2001 

2010 

2020 

2025 

2030 


PRINT : 

1 -faut à 
demander 
e ne 11 

PRINT "considérera comme exacte que 
identique a celle que vous écrirez." 

PRINT : PRINT " Tapez <?9?> quand votre interro sera 

e. < au moment ou l'on vous demandera la question suivante." 

VTAB 24: PRINT "TAPEZ UNE TOUCHE POUR CONTINUER";: GET C* 

FOR I = 1 TO 100 

CREATION 


les réponses ayant une syntaxe 

comp1è t 


PRINT "—> Texte de la question 
GOTO 1400 


QUEL NOM VOULEZ VOUS DONNER A CETTE INTERROGATIO 


FOR G = 1 TO 1000: NEXT G 


HOME : INVERSE : PRINT 
NORMAL 

PRINT "QUESTION N""; I 
PRINT : PRINT : PRINT i 
INPUT A*<I> 

IF A*<I> = "999" THEN 
PRINT : PRINT "—> Réponse demandé 
INPUT B*<I) 

N EXT I 

PRINT : PRINT "**> 

N : "; : INPUT E* 

I = I - 1:S = I 
PRINT D$"OPEN INTERRO.";E* 

PRINT D*"WRITE INTERRO.";E* 

PRINT S 

FOR I = 1 TO S: PRINT A*<I>: PRINT B*<I> 

N EXT I 

PRINT D*"CLOSE INTERRO.";E$ 

HOME : INVERSE : PRINT "OK. 

NORMAL : RETURN 
REM —> INTERROGATION <— 

V = 0 

INVERSE : HOME 
PRINT " 

PRINT L : PRINT : PRINT : PRINT " Vous devez repondre aux quest 

ionsposées. Pour cela il faut que vous chargiez un fichier d m 

terrogation que vous pourrez reconnaître dans le" . „ 

2035 PRINT "catalogue par la mention INTERRO. suiviedu nom de celle ci. 

2040 PRINT : PRINT " Si vous ne connaissez pas le nom de votre int 

errogation tapez <*>. Quand celui-ci vous sera demandé, 

ne donner que son nom, sans INTERRO." 

VTAB 24: PRINT "TAPEZ SPACE POUR CONTINUER OU <*>";: GET C* 

IF C* = THEN RETURN 

HOME : INVERSE : PRINT " INTERROGATION 

PRINT L ; PRINT : PRINT : PRINT "**> Quel est le nom de votre interro 


INSTRUCTIONS 


2050 

2060 

2100 

2105 

2110 


“; : INPUT E* 


2120 

2130 

2140 

2150 

2160 

2170 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 


PRINT D*"0PEN INTERRO.";E* 

PRINT D*"READ INTERRO.";E$ 

INPUT S 

FOR I = 1 TO S: INPUT A*(I> 

N EXT I 

PRINT D*"CLOSE INTERRO.";E* 

FOR I = 1 TO S 

HOME : INVERSE : PRINT " 

NORMAL : PRINT "QUESTION N""; I 
PRINT : PRINT : PRINT A$(I> 

PRINT : PRINT "—> Votre réponse 
Ï* F F*<I> = B*(I> THEN 2400 
PRINT : PRINT : INVERSE : PRINT " 
PRINT "—> La bonne réponse était 
PRINT B*<I> 


INPUT BS<I> 


INTERROGATION 

i : INPUT F*<I) 

FAUX ": NORMAL 


176 











2290 

VTAB 23: PRINT 

Il * 

2295 

GOTO 2500 


2400 

PRINT : PRINT : 


2405 

V = V + 1 


2410 

VTAB 23: PRINT 

Il * 

2500 

N EXT I 


2550 

HOME : INVERSE 

: 

2560 

SC = V / S * 20 


2565 

NORMAL 


2570 

PRINT : PRINT : 
: PRINT SC"/2Û" 


2575 

NORMAL 


2580 

VTAB 23: PRINT 

h ■ 

2600 

RETURN 


3000 

HOME : INVERSE 

; 

30 1 0 

PRINT D$"CATALOG 

3020 

VTAB 24: PRINT 

» • 

30 30 

RETURN 



INVERSE : PRINT " BONNE REPONSE ": NORMAL 
APEZ UNE TOUCHE POUR CONTINUER";: SET C* 

PRINT "VOUS AVEZ : "; 

PRINT : PRINT : PRINT : PRINT “ 

EZ UNE TOUCHE POUR CONTINUER" ; : SET C* 


FLASH 


NORMAL 


COMMENTAIRES : 

jgne 10 à 100 : titre du programme 
jne 110 à 150 : initialisation du 
fogramme 

jne 200 à 330 : menu principal 


Ligne 1000 à 1060 : instructions 
Ligne 1100 à 1490 : création de 
1'interrogation 

Ligne 2000 à 3030 : interrogation avec 
les calculs de points 


APPLE II et IIE 


GROSSE TETE 

Reconstituez les paires à partir 
de formes qui apparaissent au hasard sur votre écran. 

Pour jouer, 

pressez la touche M puis entrez les coordonnées 
horizontales et verticales de la bonne case. 



5 CLEAR 

280 

GET A* 

30 

TEXT 

305 

REM TEST CLAVIER 

155 

HOME 

330 

IF A* = "" THEN .280 

i 80 

VTAB 3 

355 

IF A* < > "M" THEN 280 

105 

HT AB 15 

380 

HOME 

130 

REM INITIALISATIONS 

405 

DIM A(4,3) 

155 

PRINT "MEMORY" 

430 

FOR I = 33 TO 42 

180 

VTAB 10 

455 

GOSUB 1405 

205 

PRINT "REGROUPEZ LES SIGNES 

PAR PAIRES ! ! ! " 

480 

505 

GOSUB 1405 

REM TIRAGE DES SIGNES 

230 

VTAB 15 

530 

NEXT 

255 

PRINT "APPUYER SUR ’M’ POUR 

MELANGER" 

555 

580 

SPEED= 255 

GOSUB 1530 
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605 E = E + 1 

630 HT AB 28: VT AB 5 

655 INVERSE 

680 PRINT "ESSAIS :"!E 

705 GOSUB 1055 

730 GOSUB 1780 

755 X = B : Y = C 

780 GOSUB 1055 

805 IF B = X AND C = Y THEN 1255 

830 REM UNE BONNE PAIRE ! ! ! 

855 GOSUB 1780 

880 IF A(C,B) = A < Y * X ) THEN 1255 

t 

905 PRINT CHR* (7); CHR* <7)J CHR* 
(7); CHR* (7); CHR* (7)5 CHR* 

(7)5 CHR* (7)5 CHR* (7)5 

930 REM SYMPHONIE 

955 GOSUB 1680 
980 B = X!C — Y 
1005 GOSUB 1680 
1030 GOTO 605 
1055 HT AB 29: VT AB 10 
1030 INPUT "A,1 ?” i A*,C 
1105 B = ASC (A*) - 65 

1130 IF B < O OR B > 3 THEN 1055 


1155 


IF C < 1 OR C > 5 OR C 
INT (C) THEN 1055 


1180 

H 

1 

U 

II 

U 



1205 

IF A(C,B) 

= 0 THEN 1055 

1230 

RETURN 



1255 

PRINT CHR* (7)! 

1280 

A ( C , B ) = O 

: A(Y,X) = O 

1305 

REM QUEL 

BELLE PAIRE ! ! ! 

1330 

P = P + 1 



1355 

IF P = 10 

THEN 

1855 

1380 

GOTO 605 



1405 

A = INT •< 

RND 

< 1 ) * 5) 

1430 

B = INT ( 

RND 

( 1 ) * 4) 

1455 

IF A(A,B) 

< > 

0 THEN 1405 

1480 

A ( A , B ) = I 



1505 

RETURN 



1530 

VTAB i: HTAB 1 


1555 

PRINT " 

A B 

C D" 

1580 

PRINT 



1605 

FOR 1=0 

TO 4 

: NORMAL : PRINT 


I + 1 S " " ; 

: FOR 

J = 0 TO 3: INVERSE 


PRINT “X"5Î NORMAL 


NEXT : PRINT : PRINT 


NEXT 


1630 

1655 

1680 

1705 

1730 

1755 

1780 


REM AFFICHAGE DU TABLEAU 
RETURN 

INVERSE : HT AB B * 3 ♦ 3! VT AB 
C * 2 + 3: PRINT "X"; 

REM POSITIONNEMENT 

NORMAL 

RETURN 

NORMAL : HT AB B * 3 * 3: VTAB 


C * 2 + 3: PRINT 
B) ) 5 


CHR* (A(C, 


PRINT 
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1805 NORMAL 
1830 RETURN 

1855 FOR C = O TO 4: FOR E = O TO 
3: GOSUB 1780: NEXT : NEXT 
1880 REM AFFICHAGE DE TOUS LES 
SIGNES 
1905 NORMAL 

1930 VT AB 24! PRINT "VOULEZ VOUS 
REJOUER ???" 

1955 GET A* 

1980 REM TEST CLAVIER 
2005 IF A* = "O" THEN • RUN 
2030 IF A* < > "N" THEN 1955 


1 ENTAI RES : 


5 à 55 : initialisation de l'écran 
130 à 280 : présentation du jeu 
330 à 355 : test du clavier 


Ligne 530 à 805 : tirage des signes 
Ligne 955 à 1280 : symphonie 
Ligne 1305 à 1605 : vous allez gagné 
Ligne 1630 à 1680 : affichage du tableau 
Ligne 1730 à 1855 : positionnement 
Ligne 1905 à 2030 : fin de la partie 


APPLE II et IIE 

421 


Formez à l'aide de trois dés 
la combinaison gagnante. - 
Mais attention, pour arriver à faire 421, 
vous ne disposez que de trois essais. 

Pour lancer un dé, 

pressez la touche portant son numéro suivi de 

« Enter » 



10 TEXT : HOME : G = O 
17 PRINT : PRINT * LE JEU 

DU 421 

24 VTAB 10: PRINT "VOULEZ VOUS D 
ES INSTRUCTIONS ???" 

31 GET A*: IF A* = "" THEN 31 
38 IF A* = "N" THEN 80 
45 HOME : PRINT "LE JEU DU 421 E 
ST UN JEU TRES SIMPLE ! ! " 

52 PRINT : PRINT : PRINT "IL SUF 
FIT D’OBTENIR UNE COMBINAISO 
NLA ■! PRINT : PRINT : PRINT 


"PLUS PROCHE DE 421 EN LANÇA 

NT TROIS DES.": PRINT : PRINT 
: PRINT "POUR LANCER UN DES, 
■! PRINT : PRINT 

59 PRINT "TAPEZ SON NUMERO ET RE 
TURN": PRINT : PRINT : PRINT 
"VOUS AVEZ LE DROIT A TROIS 
ESSAIS !" 

66 PRINT : PRINT : PRINT : PRINT 
: PRINT "APPUYEZ SUR LA BARR 
E D’ESPACE 

73 GET A*: IF A* < > " " THEN 7 
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3 

234 

G = G + 1 

SO 

HOME 

241 

IF G = 4 THEN 276 

87 

GOSUB 213 

248 

IF F = 1 THEN GOSUB 227 

94 

GOSUB 220: GOSUB 227 

233 

IF D = 1 THEN GOSUB 213 

101 

HT AB l: VTAB 1 

262 

IF E = 1 THEN GOSUB 220 

108 

PRINT "VOICI VOS TROIS NUMER 

269 

GOTO ÎOI 


os : " 

276 

HOME : PRINT "TERMINE !!!" 

115 

PRINT : PRINT : PRINT : PRINT 

283 

IF X = 4 OR Y = 4 OR Z = 4 THEN 


"NUMERO 1 : "IX 


297 

122 

PRINT : PRINT : PRINT : PRINT 

290 

VT AB 15: PRINT "DE TOUTES FA 


"NUMERO 2 : "IY 


CONS,VOUS N’AVEZ PAS REUSSI 

129 

PRINT : PRINT : PRINT : PRINT 


": GOTO 333 


"NUMERO 3 : "|Z 

297 

IF X = 2 OR Y = 2 OR Z = 2 THEN 

136 

VT AB 20: PRINT "ENTREZ 1,2 O 


311 


U 3 PUIS RETURN" 

304 

GOTO 290 

143 

d - o:e = o:f = o 

311 

IF X * 1 OR Y =■ 1 OR Z = 1 THEN 

150 

GET A* 


323 

157 

REM TEST CLAVIER 

318 

GOTO 290 

164 

IF A* = "" THEN 150 

325 

FOR R - 1 TO 10: PRINT CHR* 

171 

A = VAL (A*) : IF A* * CHR* 


(7): NEXT 


(13) THEN 234 

332 

REM BEEP 

178 

IF A < 1 OR A > 3 OR A < > 

339 

VT AB 15 


INT (A) THEN 150 

346 

PRINT "BRAVO , C’EST LE 421 

185 

IF A = 1 THEN D = l: GOTO 13 


1 1 1 1 1 1 1 1 M 


0 

353 

VT AB 22 

192 

IF A = 2 THEN E = 1: GOTO 15 

360 

PRINT "VOULEZ VOUS REJOUER ? 


0 


?? " 

199 

F = 1 : GOTO 150 

367 

GET A* 

206 

END 

374 

REM ENCORE UN TEST CLAVIER 

213 

X = INT ( RND (1) * 6) + l: R 


! ! ! 

ETURN 

381 

IF A* = "" THEN 367 

220 Y = INT ( RND (1) * 6) + 15 R 

CTI IDM 

388 

IF A* = "0" THEN RUN 

227 

Z = INT ( RND (1) * 6) + i: R 

395 

IF a* = "N" THEN END 

ETURN 

402 

GOTO 367 

L i gne 

101 à 136 : a-f-fichage du jeu 


COMMENTAIRES : 

L i gne 

143 : initialisation des variables 



Ligne 

164 à 206 : test du clauier 



L i gne 

213 à 227 : tirage aléatoire des 


Ligne 10 : initialisation de l'écran 

dés 



ligne 17 à 80 : a-f-fichage de la 

L i gne 

241 à 402 : -fin de la partie 

A DOI 

C ÊI I 

présentation du jeu 

IC -—- 


ALPHABET EN FOLIE 


Sauvez la République 

en déminant une tour que le président doit inaugurer. 
Tapez T pour commencer puis entrez 
vos premières coordonnées. 

D'après les réactions de votre compteur Geiger, 
vous choisirez alors d'autres coordonnées. 


10 

TEXT : HOME 

60 ’ 

IF A* = "N" THEN 140 


20 

REM EFFACEMENT 

70 

REM 

EXPLICATIONS DU JEU 


30 

PRINT : PRINT " 

80 

HOME 

! PRINT "L’ALPHABET 

FOU 


ALPHABET FOU" 


EST 

UN JEU TRES SIMPLE ! 

! ! " 

40 

VT AB 10: HT AB 1: PRINT "VOULE 

90 

VT AB 

4! PRINT "IL SUFFIT 

DE R 


Z VOUS DES INSTRUCTIONS ???" EMETTRE LES LETTRES DANS": PR 


INT: PRINT : PRINT "L’ORDRE ALP 

50 INPUT A*: IF A* = "" THEN 50 HABETISUE !!!": PRINT : PRINT 


180 










"POUR CELA,IL 
LA CASE VIDE”! 


FAUT I 
PRINT 


: PRINT 
NVERSER 
: PRINT 

100 PRINT "AVEC UNE LETTRE VOISI 
NE ! ! “: PRINT : PRINT : PRINT 
"EN DONNANT LA LETTRE A INVE 
RSER ! ! " 

PRINT : PRINT : PRINT : PRINT 
: PRINT "APPUYEZ SUR LA BARR 
E D’ESPACE" 

GET A* 

REM TEST CLAVIER 
DIM A(5,5),B(25) 

REM DIMENSIONNEMENT DES TAB 
LEAUX 
HOME 
1 = 1 
J = 1 

C = INT ( RND (1) * 25) + 1 

REM TIRAGE AU SORT ! ! ! 

IF B(C) < >0 THEN 190 

B ( C ) = I * 5 + J - 5 : A ( I, J') = 
C 

+ 1 

< 6 THEN 
+ 1 

< 6 THEN 
BOUCLES 


110 

120 

130 

140 

150 

160 

130 

180 

190 

200 

210 

220 

230 

240 

230 

260 

220 

280 

290 

300 

310 

320 

330 

340 

350 

360 


J 

J 

I 

I 


190 


180 


I = 1 TO 5: FOR J = 1 TO 


J = 

IF 
I = 

IF 
REM 
HOME 
FOR 
5 

IF A(I,J) = 25 THEN 
- 32:E = I : F = J 
PRINT CHR$ (64 + A(I,J))i n 

U ■ 

» 

REM AFFICHAGE DE L’ALPHABET 
NEXT J 

PRINT : PRINT : PRINT 
NEXT I 

PRINT "NOMBRE DE COUPS : 


370 

380 

390 

400 

410 

420 


" ; N 

GET A* 

REM TEST 


CLAVIER 


G = ASC (A*) - 64 

IF G < 1 THEN 370 
IF G > 25 THEN 370 
H = B(G):H1 = INT ((H 
3) + l:H2 = H - (H1 - 


1 ) 


1 ) / 
* 5 


430 

IF H1 = E THEN 470 


440 

IF H2 < > F THEN 

370 

450 

IF ABS (E - Hl) < 

370 

> 1 THEN 

460 

GOTO 480 


470 

IF ABS (F - H2) < 

370 

> 1 THEN 

480 

IF G < > A(Hl,H2) 

THEN 370 

490 

A(E,F) = GîA(Hl,H2) 

= 25:B(G) 


= B(25) : B(25) = H 

: VT AB i: 1 

TAB1!N = N + 1 


500 

IF B(25) = 25 THEN 

520 

510 

GOTO 290 


520 

1 = 1 


530 

J = 1 


540 

IF A(I,J) = <(I - 
) THEN 560 

1 ) * 5 + J 

550 

GOTO 290 


560 

J = J + 1 


570 

IF J < 6 THEN 540 


580 

1 = 1 + 1 


590 

IF I < 6 THEN 530 


600 

REM BOUCLES 


610 

HOME : PRINT "VOUS 

e en - ;n;" coups." 

AVEZ GAGN 

620 

HTAB l: VT AB 20: PRINT "VOUL 


EZ VOUS REJOUER ???” 

630 

GET A*: IF Aî = ” 

THEN 630 

640 

REM TEST CLAVIER 


650 

IF A* = "0" THEN 

RU N 

660 

IF A* = “N" THEN 

END 

670 

GOTO 630 




COMMENTAIRES : 

igné 10 à 110 : initialisation et 

xplications du jeu 

igné 120 : test du clavier 

igné 140 : dimmensionnement de l'écran 

igné 170 à 190 : initialisation des 

ariables 


210 

280 


L i gne 
Ligne 
jeu 

Ligne 330 à 
1"alphabe t 
Ligne 390 à 
Ligne 600 à 


260 : test de jeu 
310 : boucle principale 

370 : a-ffichage de 

590 s test du clavier 
670 : -fin de la parti e 


du 
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- APPLE II et IlE - 

DEMINEUR 


Regroupez des lignes électrifiées 
en poussant des cloisons spécialement conçues. 

Bien entendu, 
qu'une ligne vous touche 

et vous êtes aussitôt expédié dans un monde meilleur. 
«A» déplace le haut de chaque mur, «Z» le bas, 
«.» = gauche, «/» = droite. 



10 HOME 

20 PRINT "COUP DE TELEPHONE ANON 

YME A L’A.F.P. PEINT : PEINT 

30 PRINT "DES TERRORISTES.ONT IN 

STALLE UNE BOMBE": PRINT : PRINT 

40 PRINT "EXTERMINATRICE DANS LA 
NOUVELLE TOUR QUE": PRINT : 

PRINT : PRINT 

50 PRINT "LE PRESIDENT INAUGURE 

A LA DEFENSE !!••*: PRINT : PRINT 
: PRINT 

60 PRINT "VOUS AVEZ 20 ESSAIS PO 

UR LA TROUVER ET PRINT : PRINT 

: PRINT 

70 PRINT "LA DESAMORCER 

80 PRINT : PPINT : PRINT "APPUYE 
R SUR ’T’ POUR LANCER LE JEU 

I I " 

90 VTAB 23: HT AB 39: GET A*: IF 
A* < > "T" THEN 90 

lOO HOME :E = O 

110 X = 0:Y = 0:z = 0!X1 = INT ( 

RND (1) * 10):Y1 = INT ( RND 

(1) * 10) : ZI = INT ( RND (1 

) * 10 ) 


120 

REM 

INITIALISATIONS 

130 

GOSUB 

220 


140 

IF C 

= lOO THEN 

320 

150 

VTAB 

l: HT AB l: 

PRINT "VOS C 


CORDONNEES SONT 

X="5X; M y="; 


YJ “ Z =”; Z 

160 VTAB 5: PRINT "VOTRE COMPTEU 
R GEIGER INDIQUE "!C 
170 E = E + 1 


180 IF E = 20 THEN 270 

190 VTAB 10: PRINT "ESSAIS :";E 

200 VT AE 15 

210 INPUT "ENTREZ VOS NOUVELLES 

COORDONNEES <X,Y,Z) "» X,Y,Z : GOTO 
130 

220 X2 = INT (X - X!>:Y2 = INT 
(Y - Y1>:Z2 = INT (Z - Zl) 

230 C = 17.32 - SQR (X2 * 2 f Y2 
~ 2 + Z2 ~ 2) 

240 C = (C * 100) / 17.32 
250 C = INT (C * 1000) / 1000 
260 RETURN 

270 HOME : PRINT "GRACE A VOUS.L 
A FRANCE DEVRA VOTER": PRINT 
: PRINT "DIMANCHE PROCHAIN ! 

I » « 


280 

VTAB 15 

: PRINT "VOULEZ VOUS 


REJOUER 

???" 


290 

GET AS: 

IF AS = "0" 

THEM RUN 

300 

IF AS < 

> "N" THEN 

290 

310 

END 



320 

HOME : 

PRINT "BRAVO 

, IL JOU 


S RESTE 

6 ESSAIS POUR": FRINT 


: PRINT "TROUVER LE CODE QUI 
ARRETERA LA MACHINE" 


330 

E = 0 


340 

GET AS 


350 

REM TEST CLAVIER 

360 

HOME 


370 

C = INT 

( RND (1) * 100) 

380 

VTAB 1 


390 

PRINT " 

ESSAI NUMERO:”!E 

400 

INPUT " 

- : A 

ENTREZ UN CODE (O 
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43 0 

IF A > 99 OR A < O OR A 
INT <A) THEN 380 

N / 

420 

E = E + 1 


430 

IF A = C THEN 480 


440 

IF A < C THEN PRINT "LE COD 


E EST PLUS GRAND ! ! !" : GOTO 

460 

450 

PRINT "LE CODE EST .PLUS 
T ! ! ! " 

PETI 

460 

IF E > 6 THEN 270 


470 

GOTO 380 


480 

HOME : PRINT “VOUS ETES 

MENT LE PLUS FORT ! ! ! ” 

VRAI 

490 

9RUN 

FOR R = 1 TO 3000: NEXT 

280 

: GOTO 


COMMENTAIRES : 
.igné 10 à 70 ; 
.igné 80 à 100 : 
:ommencer 
.igné 110 à 120 
jariables 
.igné 150 à 160 


exp1ication 
attend une 


du jeu 
touche 


pour 

initialisation des 
entrée des coordonnées 


COUP DE TELEPHONE ANONYME A L’A.F.F. 


DES TERRORISTES ONT INSTALLE UNE BOMBE 


EXTERMINATRICE DANS LA NOUVELLE TOUR QUE 


LE PRESIDENT INAUGURE A LA DEFENSE ! ! ! 


VOUS AVEZ 20 ESSAIS POUR LA TROUVER ET 


LA DESAMORCER 


Ligne 17U 
Ligne 190 
Ligne 210 
Ligne 
Ligne 
Ligne 360 
sortie 


220 

270 


compteur de coup 
a-f-fichage du nombre d'essais 
choix des coordonnées 
250 : analyse de la réponse 
340 : -fin de la partie 
490 : choix du code de 


APPLE II et IIE 


XRAYS 


Remettre les lettres dans l'ordre alphabétique ? 
Pas si facile que ça, 

quand on est obligé d'inverser la case vide 
avec une lettre voisine. 

Le jeu démarre seul ; après, il vous suffit de suivre 
les directives de l'ordinateur. 



1 HGR2 ! HCOLOR= 7 

2 HPLOT 2,2 TO 260,2 TO 260,185 TO 

2,183 TO 2,2 

3 H = 2:B = 185:D = 2:G = 260 

4 I * o: J = i 

ÎO XI = INT « RND (1) * 237) ♦ 2 

:X2 = INT ( RND (1) * 257) + 

2:Y1 = INT ( RND (1) * 133) 


+ 2IY2 = INT ( RND (1) XI 
83) +2 

20 Al = INT ( RND (1) * 24) - 12 
:A2 = INT t RND (1) *24) - 

12: B1 = INT < RND (1) * 24) 
- 12:B2 = INT ( RND (1) * 
24) - 12 
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30 

HCOLOR= 

7! HPLOT 

XI,Y1 TO X2, 

210 

I = I + i: IF I 

= 

5 THEN I = 


Y2 






0 




35 

HCOLOR= 

o: HPLOT 

X1(J),Y1(J) TO 

220 

j = j + i: if J 

= 

5 THEN J = 


X2(J), 

Y2 ( J ) 




0 




37 

XI ( I ) 

= 

xi :yi(I) 

= Yl:Y2 

(I) = 

230 

GOTO 30 





Y2: 

X2(I) = X2 



300 

HCOLOR= 7:H = 

H 

+ 1 : 

HPLOT G 

38 

Al = 

Al 

+ INT ( 

RND (1) 

* 2) - 


,H TO d,h: IF 

H 

> Y1 

OR H > 


1 






Y2 THEN 500 




39 

B1 = 

B1 

+ INT ( 

RND (1) 

* 2) - 

310 

F = F + l: IF F 


50 

THEN RUN 

40 

1 

A2 = 

A2 

+ INT ( 

RND (1) 

* 2) - 

320 

GOTO 210 





1 





350 

HCOLOR= 7: B =■ 

B 

- i: 

HPLOT G 

41 

B2 = 

B2 

+ INT < 

RND (1) 

* 2) - 


,B TO d,b: if 

B 

< Y1 

OR B < 


1 






Y2 THEN 500 




42 

XI = 

XI 

+ ai: IF 

XI > 

G OR 

360 

GOTO 310 





XI 

< 

= D THEN 

Al = 

Al: GOTO 

400 

HCOLOR= 71-D = 

D 

- i: 

HPLOT D 


42 






,H TO D,B: IF 

D 

< XI 

OR D < 

50 

X2 = 

X2 

+ A2: IF 

X2 > 

G OR 


X2 THEN 500 





X2 

< 

= D THEN 

A2 = - 

A2: GOTO 

410 

GOTO 310 





50 





450 

HCOLOR= 7: G = 

6 

+ i : 

HPLOT G 

60 

Y1 = 

Y1 

+ Bl: IF 

Y1 > = 

B OR 


,H TO g,b: if 

G 

> XI 

OR G > 


Y 1 

< 

= H THEN 

Bl = - 

Bl: GOTO 


X2 THEN 500 





60 





460 

GOTO 310 




70 

Y2 = 

Y2 

+ B2: IF 

Y2 > 

B OR 

500 

TEXT : HOME : 

PRINT 

"VOUS AV 


Y2 

< 

= H THEN 

B2 = 

B2: GOTO 


E2 PERDU ! ! ! " 





70 





510 

PRINT : PRINT 

■ 

■ 

PRINT “VOULE 

80 

X = 

PEEK ( - 16384): IF 

X < 1 


Z VOUS REJOUER ???" 



28 

THEN 210 



520 

GET A*: IF A* 

= 

"O" 

THEN RUN 

90 

POKE 

16384,0: 

X = X - 

128 






100 IF 

X = 

65 THEN 

300 


530 

IF A* = "N" THEN END 

110 IF 

X = 

90 THEN 

350 


540 

GOTO 500 





COMMENTAIRES : 

Ligne 1 : initialisation de l'écran 
Ligne 2 : tracé du cadre du jeu 
Ligne 3 à 4 : initialisation des 
variables du jeu 

Ligne 10 à 20 : tirage aléatoire des 


positions des lignes 

Ligne 30 à 70 s a-f-fichage et déplacement 
des 1ignes 

Ligne 80 à 110 : test de collision 
Ligne 210 à 360 : routine du jeu 
Ligne 500 à 540 : -fin de la partie 


AMSTRAD CPC 464 


PRONOSPORT 

Donnez la combinaison gagnante de la prochaine course 
et repartez les poches pleines ! 

Beaucoup de sueurs froides en perspective... 


10 REM TILT PRONOSTIC 

20 REM définition des couleurs 

30 MODE 1 : BORDER 0=INK 0,0 =INK 1,25=INK 2,27=INK 3,15=PAPER 0 
4Ô REM initialisation 

50 fi=32 = B ==32 = C=32 =.PRQ=0 = D=0 = E=0 = F=0 = PLOT -2, -2,1 

60 REM ouverture d'une fenetre 

70 WIHDOW #1,13,18,24,24 

80 REM redéfinition de caractère 

30 SYMBOL RFTER 0 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

248 

250 

260 

270 

280 

INT 

290 

300 

INT 

310 

INT 

320 

INT 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


SYMBOL 33,255,255,255,255,255,255,255,255 
REM décors 

FOR G=16 TO 380 STEP 16=TRG=M0VE 0, G 8 PR INT" ! " : MOVE 624, G : PR INT" 
NEXT G 


! ! ! ! ! 

. 


i i 
i i 
i i 


i i » 

! "i 

i h . 


TflG^MOVE 0,374=PRINT"!!!!!!!!!!!!!!! 

TRG »MOVE 0,14 PRINT"!!!!!!!!!!!!!!!! 

TRG:MOVE 0,60 :PRINT"! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 

PLOT -2,-2,2 

TRG=MOVE 0, 358=PRINT"!DEPRRT! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 1 ! ! ! ARRIVEE ! " ; 
PLOT -2,-2,3 


TRG 

TRG 

TRG 


1 1 ! 
i i i 
i i i 


i i •> 


/ 


■ d$=‘ 


MOVE 0,342 '• PRINT" ! 1 ! ! 

MOVE 0,146 = PRINT"! 3! ! 

MOVE 0,246=PRINT"!2!! 

REM attribution des variables 
a$==" ! < " •• b* = " /!!!"= c$= " 

REM affiche Pronostic 

TRG = MOVE 32,30 = PRINT"PRONOSTIG"; = INPUT #1,PRO 
REM affiche chevaux 

TflG = MOVE R-16,294 = PRINT B$; =TflG=MOVE fl, 294+16 = PRINT H$.= = TRG = MOVE fl, 294-16 *PR 
C$.i 

SOUND 1,200,1 = SOUND 2,150,1 * SOUND 3,258,1 

TRG = MOVE B-16,196 = PR I NT B$; = TRG = MOVE B, 196+16 = PR I NT RSU = T RG = MOVE B, 196-16 = PR 
CSU 

TflG = MOVE C-16,100 = FRINT B *; = TflG = MOVE C,100+16 = PRINT fl $; = TRG = MOVE C,100-16 = PR 

CSU 

TflG = MOVE fl, 294-16 = PRINT d$.= = TRG = MOVE B, 196-16 = PRINT d$.= = TRG = MOVE C, 100-16 = PR 
d$; 

fl=R+RND U 0 K1 6 = 8=B+RN0 <10>*16 = C=C+RND <10>*16 
REM test- 

IF R>520 THEN 390 
IF B>520 THEN 390 
IF 0520 THEN 390 
GOTO 280 

REM ordre d'arrive 
IF fl>B AND fl>C AND B>C THEN TRG 

IF fl>B AND R>C AND OB THEN TflG 

IF B>R AND B>C RHD R>C THEN TRG 

IF B>A AND B>C AND OR THEN TRG 

IF OR AND Ob AND b>R THEN TRG 

IF OR RHD Ob AND a>b THEN TRG 


MOVE 160,38 = PRINT "1 = >1 2= >2 3=>3".= 


MOVE 32,64 
MOVE 32,64 
MOVE 32,64 
MOVE 32,64 
MOVE 32,64 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


”1 = >1 


3=>2 "• 
3==>3" 


2= >3 

" 1=>2 2=>1 
"1 = >2 2=>3 3=>1"J 
"1=>3 2=>2 3=>1 "t 
"1 = >3 2= >1 3=>2 "i 


TRG = MOVE 32,48 = PR I NT ” P ressez une touche " .= 

FOR a==0 TO 1000 = NEXT a 

IF IHKEY$= " " THEN 480 ELSE RIJN 


COMMENTAIRES : 


caractères 
Ligne 120 à 


Ligne 30 
Ligne 50 
Ligne 60 
■fenêtre 
Ligne 90 


: définition des couleurs 
: initialisation des variables 
à 70 s ouverture de la 

à 100 i redéfinition des 


Ligne 
Ligne 
Ligne 
Ligne 
Li gne 
Ligne 


240 

2é0 

280 

350 

400 

4é0 


220 s affichage du décors 
attribution des variables 
affichage des pronostics 
330 : affichage des chevaux 
370 : test du clavier 
450 : ordre d'arrivée 
480 : fin de la partie 
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- AMSTRAD CPC 464 - 

CH ASS’ LETTRES 

Des lettres tombent du haut de l'écran, 
attrapez-les et reconstituez 
le mot proposé par l'ordinateur. 

Pour vous déplacer, utilisez la touche « > » pour aller à 
droite, et la touche « < » pour aller à gauche. 



1 DATA "CROIX","LIVRE","JOUTE","COPIE" 

2 DATA "ARCADE","VILLE","BANDE",“RIRES” 

3 DATA "JOUER","RASER","VOLER","ALLEE" 

4 DATA "TOUCHE","BALLE","FUMEE","VIRER" 

5 DATA "CACHE"ROUES","RALES","MALLE" 

10 CLEAR : DIM B<5) 

11 SPEED KEY 1,1 

100 CLS 

101 RESTORE 

105 A=RND<1> *20 

106 FOR 1=1 TO A 

107 READ ZS: NEXT I 

110 LOCATE 35,1 :PRINT Z* 

115 X=20 

120 LOCATE X,25 :PRINT "£" 

121 B=RND<1)*39+1 : A=RND<1>*26+65 

122 FOR J=5 TO 24 

123 LOCATE B,J :PRINT CHR*<A) 

124 FOR K=1 TO 30 

125 A$="":A$=INKEY$ :IF A*= M " THEN 140 

126 LOCATE X,25 :PRINT " " 

130 IF A*=" ," AND XOl THEN X=X-1 

131 IF A*=“." AND X<>3? THEN X=X+1 

135 LOCATE X,25 :PRINT "£" 

136 NEXT K 

137 FOR 1=1 TO 20 :NEXT I 
140 LOCATE B,J :PR-INT " " 

150 N EXT J: IF XOINT<B) THEN 121 

160 FOR 1=1 TO 5 

161 IF MID*<Z*,.I ,1>=CHR*<A> THEN 170 

162 NEXT l! S=S+1 : GOTO 121 

170 IF B<I)=1 THEN 162 

171 LOCATE 34+1,1: PRINT "*" 

172 S=S-2 

180 FOR 1=1 TO 5 

181 IF B(I)<>1 THEN 121 

182 NEXT I 


_ 

186 










1MMENTAI RES : 


gne 1 à 5 
re choisis 
gne 105 à 110 
gne 115 à 120 
gne 121 : cho 
pmber 


liste des mots pouvant 


: choix du mot 
: affichage du 
x de la lettre 


à former 
dièse 
qu i va 


Ligne 122 à 150 : boucle du jeu 

Ligne 124 à 136 : test clavier et 

déplacement du dièse 

Ligne 137 à 162 : test si la lettre 

attrapée est contenue dans le mot 

Ligne 170 à fin : si oui, incrémentation 

du score et test si le mot est formé en 

entier. 


-AMSTRAD CPC 464 


AMSTRAD MIND 

Réplique du célèbre jeu «Master mind», 
Amstrad mind va mettre votre mémoire à rude épreuve. 
Entrez votre combinaison suivie de «return». 



10 
20 
30 
40 
50 
60 
78 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


REM MflSTRRD 

MODE 1 „ _ 

INK 0.1 = 1MK 1.24=1NK 2.1.26 =INK 3.6.1 
PAPER 0 = PEN 1 
F0RM$="RBCDEFG" 

HINDOU #1.1.20.25.25 
REM MASTER MINDE 
REM 

REM TIRAGE DES CHIFFRES 
IMPOT "NIVEAU DE DIFFICULTE» C l->47";NHAX 
NMAX=NMAX+3 
RC 1 >== I MT C 10*RND(9>> 

FOR T=2 TO NMAX 
AC T >= IN TC 1QTRHDC 9 > > 

IF R RaX>«U> l THEN NEXT U ELSE (KT>-INT<10*RND<9))-GOTO 150 
H EX T T 


CLS 

FOR ROUT=0 TO 23 

TÉX$==LEFT$< FORMÎ. NMAX > = PR I MT # 1. TEX$ > = IMPUT # 1. RBCD$ 
IF LEHC ABCD$X>MMAX THEM PRINT CHR$C7);'GOTO 210 
PR INT ABCD$+" ".i 
FOR T=1 TO NMAX 
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250 N=VfHLC MI D3K flBCD*, T, 1 > > 

260 IF N=FKT> THEN PEN 2 PRINT CHR*C 224 X- PEN 1 : F'RINT " " : BQN=BON+1 ; G 
OTO 300 ■ 

270 FOR 11=1 TO NMRK 

280 IF N=flCU> THEN PEN 3 PR INT CHP$C 225 X: = PEN 1= PR INT " ".-GOTO 300 
290 NEKT ü 
300 NEKT T 
310 F'RINT 

320 IF BONONNflK THEN NEKT ROOT = GOTO 380- 
330 F'RINT #1, "BRAVO !!!!!!!!!!!" 

340 FOR T=1 TO 5 = FOR S=1000 TO 100 S TE F' -20 
350 SOUND 1,S,1,15 
360 NEKT S *NEKT T 
370 GOTO 390 

380 PRINT #1,"PERDU !!!!!!!!!!!" 

390 LOCRTE 1,24 : F'R I NT "UNE AUTRE (0- y N 
400 IF INKEY<34)=0 THEN RUN 
410 IF INKE'rX46>=0 THEN END 
428 GOTO 400 


COMMENTAIRES i 

Ligne 10 4 60 : initialisation de 
l'écran et des -fenêtres 
Ligne 70 à 100 i choix du niveau de 
di -f-f i cul té 

Ligne 110 à 170 i tirage du chiffre et 
retirage si 2 fois le même 
Ligne 180 à 220 : saisie de la 


combinaison et test du format 

Ligne 230 4 310 i test si valeur 

présente est bien placée 

Ligne 320 i test perdu ou gagné 

Ligne 330 4 370 s affichage ■bravo" ♦ 

musique 

Ligne 380 4 420 : affichage de perdu et 
redémarrage du jeu 


—AMSTRAD CPC464 — 

MORPION 


Alignez cinq pions sur une ligne verticale, 
diagonale ou horizontale 

et écrasez l'ordinateur par votre supériorité stratégique. 
Méfiez-vous cependant. 

Son habileté est digne de celle des meilleurs cancres... 



5 MODE 1 :CLS: INK 0,0:INK 1,24:INK 2,17:INK 3,14. 

10 DEFINT A-M,R-Z: DIM SC 9?),P<99),N<21) 

15 'ON BREAK GOSUB 700 

20 N(0)=0.01:N(1)=0.03:N<2)=0.5:NC3)=10:NC4)=10000:N(5)=0.1:NC10>=2:N<15>=100:N< 
20 ) = 1 000000 : g$( 0 ) = " 00 " igSCD^lO" :g*(2) = "20* :g*(3> = " 

30":gSC 4) = "40":gSC5> = "50":g*<6> = "60":g*(7) = "70":gS(8) = "80":gS(9) = "90" 

25 SYMBOL AFTER 250 

26 SYMBOL 250,&X111100,&X1100110,&X11000011,255,255,&X11000011,&X1100110,&X11110 
0 
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30 val ur*=CHR*< 167) +CHR*<172) +CHR*< 182) +CHR*( 1 73 )+CHR*< 1 33) +CHR*< 184)+CHR*'. 1 / V> + 
CHR*<180)+CHR*<172)+CHR*<16?)+CHR*<132)+CHR*<177)+CH 

R*<165)+CHR*<182)+CHR*<183)+CHR*<1 67)+CHR*< 1 65)+CHR*< 1 ?<$) 

31 A*=CHR*<250):B*=CHR*<224):C*=CHR*<144) 

100 ERASE S,P : DIM P<99),S<99):A=0:B=0:CLS 
200 GOSUB 500 : GDSUB 400: IF COO THEN GOTO 260 

210 ERASE P : SOUND 7,350,1,0,1 2 : DIM P<99):L0CATE 28,21 :PEN 1:PRINT"A moi - ; : D- 

1 :E=0:F=5:G=0:H=90:GOSUB 300 :D=9:E=4:F=9:H=50:GOSUB 
300 :D=10:E=Q:GOSUB 300 :D=11 :F=5:GOSUB 300:q=-l:o=0 

220 FOR 1=0 TO 99:1F s(i)O0 OR p<i)<q THEN 225 ELSE 1F p(i)>q THEN d-i : q-p d) : o 
= 1 ELSE o=o+l : IF o*RND<l THEN d=i 
225 NEXT 

230 LOCATE 35,11:PRINT ds<d)=5:GOSUB 350:a=a+l:IF a=100 OR <p<d)=0 AND a>l) TH 
EN b=2: GOTO 310 

240 IF p(d)>=n< 20) THEN b=l:GOTO 310 

260 PEN 1 :LOCATE 38,13:PRINT LOCATE 28,21rSOUND 7,150,10,12 :PRINT "A vous: 

" ; :WINDOW £0,35,38,21 ,21 :CLS:INPUT "",s:WINDOW £0,1, 

40,1,25:IF s>99 OR s<0 THEN 260 

265 IF s< s).< >0 THEN LOCATE 1,25:PEN 2:PRINT”Case déjà occupéeGOTO 260 

266 LOCATE 37,13:PEN 1:PRINT s;:LOCATE 25,11:PRINT “Je joue en ..“; 

270 s< s) = l :GOSUB 360:a=a+l:IF a=100 THEN b=2:G0T0 310 ELSE IF p<s)>=n<4) THEN b= 
-1 : GOTO 310 ELSE LOCATE 1,25:PRINT SPACE*<30); : GOTO 
210 

300 k=d*4: FOR i=e TO 
z=z + s(1):NEXT:o=n < z ) 
d:p<1)=p<1)+o:NEXT 1 
305 NEXT j,i:RETURN 

LOCATE 1,25:IF b=l THEN PRINT"J'al gagne 
gagne en"; ELSE PRINT"Partie nulle apres"; 

PRINT a;"coups": FOR i=l TO 10000:NEXT: RUN 

LOCATE < d/l 0-FIX(d/l 0 >)*20 + 4,FIX<d/10)*2+5 :PEN 2:PRINT a*; :RETURN 
LOCATE <s/10-FIX<s/10)) *20 + 4 ,FIX<s/10)*2+5:PEN 3:PRINT b*; :RETURN 
LOCATE 4,3:PRINT"0 1 2 3 4 5 6 7 8 9“;:FOR i=0 TO 9:L0CATE 1,5+i*2 :PRINT 
;:NEXT: FOR i=5 TO 23 STEP 2:F0R j=4 TO 22 STEP 2:L 


£ : FOR j=g TO 
: I F o<>0 THEN 


h STEP 10 :s=i+j:p=s+k:z=0 
ÉOR l=s TO p STEP 


FOR l=s TO p STEP d: 


en"; ELSE IF b=-l THEN PRINT"Vous a 


9 *< 


310 
vez 
320 
350 
360 
400 

i )_ 

OCATE j , i : PRINT c*;:NEXT j,i: RETURN 

500 CLS:PEN 1:LOCATE 1,1:PRINT CHR*<150)STRING*<38,154)CHR*<156) 

OCATE 1,j:PRINT CHR*<149):LOCATE 40,i:PRINT CHR*<149 
):NEXT:LOCATE 1,11:PRINT CHR*<147)STRING*<38,154)CHR*<153) 

510 PR^INt ' STRING*< 5,224)SPACE*< 18)CHR*< 224) :’LOCATE 3,4:PRINT CHR*<224)" 

4\" "CHR*<224):LOCATE 3,5:PRINT CHR*<224)" "CHR*<2 

24)" "STRING* < 5,250)" "STRING*<4,224)" “STRING*<4,250)" "CHR*<224)" "STRING*<5, 

250)“ " CHR*< 224) “ "CHR*<224) „ 

520 LOCATE 3,6:PRINT CHR*<224)" "CHR*<224)" "CHR*<250) M CHR*<2-jO) 

4)" "CHR*< 224)" "CHR* < 250)" "CHR*(250)" "CHR*<224 

)« " CHR*( 250 ) " "CHR*< 250 ) 11 " CHR*C224) CHR*( 224) " "CHR*<224) 


: FOR i=2 TO 10:L 


“CHR*< 22 


"CHR*(22 


:HR*(250)" "STRING* 


“CHR* < 250)" "CHR*(22 


"CHR*(224) 


"CH 


530 LOCATE 3,7:PRINT CHR*<224)“ ”CHR*(224)" "CHR*<250)" 

<5,224)" "STRING*(4,250)" "CHR*(224) M n CHR*<250)" 

"CHR*<250)" "CHR*<224)" "CHR*<224)“ "CHR*<224) 

540 LOCATE 3,8:PRINT CHR*<224)" "CHR*<224)" "CHR*<250)" 

4)" "CHR*<224)" "CHR*<250)" "CHR*<224>" "CHR*<2 

50)" " CHR*< 250 ) 11 " CHR*< 224) " " CHR*< 224) CHR*< 224) 

550 LOCATE 3,9:PRINT CHR*<224)" "CHR*<224) B "STRING*<5,250)“ 

R*<224)" "CHR*<250)" "CHR*<224)" "STRING*<5,250)" 

"CHR*< 224)" "CHR*< 224) _ _ ___ 

560 PEN 3:LOCATE 9,12:PRINT CHR*<164)" 1985 -LDI R- , C. B~+ 

570 PEN 1 :LOCATE 1,14:PRINT" Le but de ce jeu de retlexion 

r cinq pions dans l'une des trois directions suivant 
es:":PEN 2 :PRINT:PRINT" £ DIAGONALE": PRINT" 

ALE":PRINT" £ VERTICALE" 

580 PEN 1:PR1NT:PRINT" . Votre adversaire est le CPC 464." 

LOCATE 7,24:PEN 3:PRINT"Vou1ez vous commencer <0/N) ?" 
i*=INKEY*: I F i*= n " THEN 610 

IF i*<>"o“ AND i*<>"n" AND i*<>"0" AND i*<>"N" THEN LOCATE 

i=l T0 2000:NEXT:LOCATE 11,2 
610 620 IF i*="o" OR i*="0" THEN c=l 

T^: PRINT" J" a i les " ; :PEN 2: PRINT a*:: LOCATE 27.5: PEN 1;PR 


est d'aligne 
£ HORIZONT 


600 
610 
615 

"Oui ou Non S.V.p.“:FOR 
5:PRINT SPACE*<18): GOTO 
620 IF i*="o" OR i*="O" 
630 CLS:LOCATE 30,3:PEN 


11,25 


iPEN 1:PRINT 
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I 


rr 


Et vous les ";:PEN 
3:PRINT"Vous jouez en 
.640 LOCATE 1,1:PEN 2: PR INT" 
650 PEN 1 :RETURN 
700 RUN 


3:PRINT b$; :PEN l:LOCATE 24,1 
.“; :LOCATE 25,11 :PRINT"Je joue 


* MORPION * H CHR*<164)' 


en . . "; 

1985 -LDIR- 


COMMENTAI RES : 


Ligne 5 : définiton de l'écran graphique 
Ligne 20 : initialisation des variables 
Ligne 25 à 26 : redéfinition des 
caractères graphiques 

Ligne 30 ! initialisation de la variable 


YALUR4 

Ligne 100 à 210 : définition des 
tableaux de variables et initialisation 
Ligne 260 à 505 : entrer vos 
déplacements et réflexion de 
1'ordinateur 

Ligne 400 à 550 : affichage des 

graphismes à l'écran 

Ligne 570 à 7Û0 i commentaires du jeu 


- AMSTRAD CPC 464 - 

CATA-TIR 

Détruisez sans remord les dépôts de vivres de l'ennemmi. 
Vous pourrez ainsi vous rendre maître de toutes 
ses places fortes. 

Pour l'attaquer, vous disposez d'une catapulte 
dernier modèle : il vous suffit 
d'indiquer un angle de tir et de presser la touche «enter». 



I ' ON BREAK GOSUB 8000 

5 INK 0,0:INK 1,15:INK 2,?:INK 3,25 
<6 PAPER 0: BORDER 0 
10 DIM xb< 50),yb(50 ):ti = 1 

II SYMBOL AFTER 199 

12 SYMBOL 199,0,4X11000,4X11000,4X11000,4X1111110,4X11000,4X11000,0 

13 SYMBOL 200,4X111100,4X100100,4X100100,4X11100111,4X10000001,4X11100111,4X1001 
00,4X111100 

14 SYMBOL 201,0,0,0,4X111100,4X1111110,4X1100110,4X1111110,4X1111110 

15 SYMBOL 202,4X10001000,4X10001000,4X10001000,255,128,128,128,255 

16 SYMBOL 203,4X10001,4X10001,4X10001,255,4X10000001,4X10000001,4X10000001,255 

17 SYMBOL 204,8,8,8,255,128,128,128,255 

18 SYMBOL 205,4X1111,4X1111,4X1111,255,131,131,131,255 

19 a*=CHR*<14)+CHR*<1>+CHR*<15)+CHR*<2>+CHR*<200)+CHR*<22)+CHR*<1)+CHR*<8)+CHR*< 
15)+CHR*<0)+CHR*<199)+CHR*<22)+CHR*<0) 

20 b*=CHR*<14)+CHR$(0)+CHR$(15)+CHR$<1)+CHR*<201) 

21 SYMBOL 206,4X11110000,4X11110000,4X11110000,255,4X11000001,4X11000001,4X11000 
001,255 

24 c$=CHR$<14)+CHR$<1) + CHR$<15)+CHR$< 2) 

25 SYMBOL 207,0,7,4X1111,4X11111,4X111111,4X111000,4X111111,4X111111 
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26 SYMBOL 208,0,&X11100000,&X11110000.&X11111000,&X11111100,&X11100,&X11111100,& 
XI 1-11 1100 

2? SYMBOL 209,&X111111,&X111111,*X111111,&X111111,&X111111,&X111111,&X111111,&X1 
11111 

28 SYMBOL 210,&X11111100,&X11111100,&X11111100,&X11111100,&X11111100,&X11111100, 
&X11111100,&X11111100 

29 SYMBOL 211,&X1111,&X11000,&X110000,&X11100000,&X1000000,&X1000000,&X1000000,& 
X11000000 

30 SYMBOL 212,&X11110000, 6cX 11000,&X1100,&X111,&X10,&X10,&X10,&X11 

31 SYMBOL 213,&X1000000,&X1000000,&X1000000,&X11000000,&X1000000,&X1000000,&X100 
0000,&X11000000 

32 SYMBOL 214,&X10,&X10,&X10,&X11,&X10,&X10,&X10,&X11 

33 d*=CHR*<14)+CHR*(0)+CHR*<15)+CHR*<3)+CHR*C22)+CHR*<1)+CHR*<207>+CHR*<208)+CHR 
*<10)+CHR*(8)+CHR*(8)+CHR*<209)+CHR*C210)+CHR*<22)+C 

HR*< 0> . . 

50 cm*=“v ingtdeuxtrentequatretrentetroi scestchezmoi " : x-f*=" v ingtdeuxvingtquatrequ 
atrev i ngthu i t“ :cm=223433:xf=222488 

100 MODE 1 :CLS:GOSUB 600: LOCATE 1,1:PRINT STRING*<4,11); :LOCATE l.lsPEN 2:PRINT 
"CHR*<164>" 1985 -LDIR- 

110 LOCATE 6,2: PR INT b*b*b*b*b*“ "b*b*" " b*b*b*b*b*" " b*b*b*b*b*“ "b*b*b*b*b 

Îl5 x*=CHR*<202):y*=CHR*<203):z*=CHR*<204):w*=x*+y*:LOCATE 6,3:PRINT x*z*z*z %y%" 
"w*" "x*z*ztz$y$" "xtzfzîziy*’ "x*z*z*z*y*:LOCA 
TE 6,4:PRINT w*" "w*" "w*" # "w*" "w* 

120 LOCATE 6.5:PRINT w*b*b*b*" "w*" "w*b*b*" "w*" "b*b*" "w*b*b* 

125 LOCATE 6,6:PRINT x*z*z*z*y*" "w*" “x*z*z %y%" "w*" "w*" "x*z*z*y* 

127 ' PR INT x-f*, cm$ , cm, x-f 

130 LOCATE 7,7:PRINT " “w*" "w*" "w*" "w*" "wï" "w*:LOCATE 6,8:BRINT b*b 

*b*w*" "w*"’ "w*b*b*b*" "w$b$w$ n "w*b*b*b*:LOCATE 

6,9:PRINT x*z*z*z*y*" "w*" "x*z*z*z*y*" "x$z$z*zfy$" "x*z*z*z*y* 

140 LOCATE 1,11:PEN 2 :PRINT"Régiez votre canon pour casser les ";b*:PEN 2:PRINT" 

Vous devrez régier votre angle de tir etvotre puissa 

nce de feu.":PEN 1:PRINT" 30<puissance<100 et 0<angle<90" 

150 PEN 2 :LOCATE 28,22:PRINT" " ENTER i“:LOCATE 25,23 :PRINT"-pour commencer-": LO 
CATE 25,18: PRINT" 3 Châteaux LOCATE 25,19 : PRINT" d i f-f 
erents." 

160 n*=INKEY*:IF n*OCHR*<13) THEN 160 

ni = ti :ERASE xb,yb:DIM xb<50),yb<50): IF ti>3 THEN 
MODE 0 :PEN 1:LOCATE l,12îPRINT" Chateau No";ti 
MODE 1:CLS:ON ni GOSUB 1200,1300,600- 
GOTO 710 

PEN 1:LOCATE 1,22:PRINT STRING*< 40,131):RETURN 
PEN 3 : PAPER 0 :DEG:xl=x-FIX<1*COS< a)>:yl=y-FIX(1*SIN< a)> 

MOVE x1,y1 : DRAW x,y,FF 
RETURN 

PEN 3:LOCATE 40,1 :PRINT"M "5 :LOCATE 40,2:PRINT"U";:LOCATE 
TE 40,4 : PRINT"I"; :LOCATE 40,5 :PRINT“T"; :LOCATE 40,6: 

PRINT"I"::LOCATE 40,7:PRINT"O";:LOCATE 40,8:PRINT"N";:LOCATE ...... 

550 ml=INT<mu/l0):m2=mu-l0*ml:ml*=STR*(ml):m2*=STR*<m2):PEN 2:L0CATE 39,11:PRINT 
ml*; :LOCATE 39,12:PRINT m2* ; :RETURN 

600 CLS:GOSUB 500 . mi 

610 FOR i=19 TO 21:LOCATE 3,i:PRINT c*CHR*<202);:PRINT STRING*<16,204); :PRINT CH 

R*< 203) :NEXT i „ 

620 LOCATE 2,18:PRINT CHR*<202) ;STRING*< 18,204) ;CHR*<203) 

630 FOR i = l3 TO 17:L0CATE l,i:PRINT CHR*<202 )5 :LOCATE 16,i:PRINT CHR*<202);:LOCA 
TE 2,i:PRINT STRING*<5,204);CHR*<203)LOCATE 17,i:P 
RINT STRING*(5,204);CHR*<203);:NEXT i 

640 FOR i=16 TO 17:L0CATE 7,i:PRINT CHR*(205);STRING*<8,204);CHR*<206):NEXT 1 
650 FOR i=l TO 7:LOCATE i ,12:xb<i)=i :yb<i) = 12:PRINT b*;:LOCATE i+15,12:xb(i+7 >=1 
+15:yb<i+7)=12:PRINT b*;:NEXT 

660 LOCATE 8,15:F0R i=8 TO 15:xb<i+7)=i :yb<i+7) = 15:PRINT b*;:NEXT 1 
670 LOCATE 2,14:PRINT a*:LOCATE 6,15:PRINT a*:LOCATE 2,16:PRINT a*:LOCATE 21,14: 
PRINT a*:LOCATE 17,15:PRINT a*:LOCATE 21,16:PRINT a* 

; FOR i=6 TO 10 STEP 2:L0CATE i,18:PRINT a*:NEXT i : FOR i=13 TO 17 STEP 2:L0CATE 1 
,18:PRINT a*:NEXT i 
680 LOCATE 11,20:PRINT d* 

699 PAPER 0:k=22: RETURN . „ Mni 

710 x=FIX( RND(TIME) *100)-*-520: y=FIX< RND(TIME) *50 ) +70 : PEN l:FOR i=60 TO y:MOL»E x-3 


200 

210 

300 

499 

500 
510 
515 
530 
540 


ni=ti-INT<ti/3)*3 
: FOR i=1 TO 5000:NEXT 


40,3:PRINT"N";:LOCA 
40,9:PRINT"S" 
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0,i : DRAW x,i,3:NEXT:mu=35:ci=0 

720 GOSUB 540 :LOCATE 1,23 :PEN 2 :PRINT"Cibles";ci ;“Force"; Pu ;"Angle"; an ;"sc"; SC ;" 

";:L0CATE 1,24 :PEN 1 :PRINT"Entrez votre puiss 
ance: "CHR*<242)"; §"CHR*<243)“ ":PEN 2:PRINT" ’ENTERS pour valider 

":pu=30 

730 n*=INKEY$:LOCATE 34,24 :PEN 1:PRINT pu:IF n*="" THEN 730 

735 IF n$="§" AND pu>30 THEN pu=pu-0.5 : a=0 : -f-f=0 : GOSUB 51 0 : f-f=l : 1 =pu : GOSUB 51Ü:L0 
CATE 35,24:PRINT" ":G0T0 730 

740 IF n$=";“ AND pu<100 THEN pu=pu + 0.5 : a=0 : i -f=l : 1 =pu : GOSUB 510: LOCATE 35,24:PRI 
NT" ": GOTO 730 

745 IF n*=CHR*<13) THEN l=pu:G0T0 760 
750 GOTO 730 

760 LOCATE 1,24:PEN 1 :PRINT"Entrez votre angle de tir: "CHR*<240)"q a"CHR*<241)" 

":PEN 2:PRINT" *ENTERi pour val ider":an=45 

765 n$=L0WER$(INKEY$):LOCATE 34,24:PEN 1:PRINT an:IF n*="" THEN 765 
770 IF n$= " q " AND an<90 THEN -f-f=0 : a=-an : GOSUB 510 : an=an + 0.5 : a=-an : i -f=l : GOSUB 510 
: LOCATE 35,24 :PRINT" ": GOTO 765 

780 IF n*="a" AND an>0 THEN -f -f=0 : a=-an : GOSUB 510 : an=an-0.5 : a=-an : -f i=\: GOSUB 510: 

LOCATE 35,24:PRINT" “:GOTO 765 

790 IF n$OCHR*< 13) THEN GOTO 765 

800 -F-f = 1 : FOR a=0 TO -an STEP -1: GOSUB 510:NEXT 

810 mu=mu-l: FOR t=l TO 500 STEP 0.1:IF yl<400 THEN xa=xl:ya=yl 

820 xl=FIX<x-pu*COS<an)*t):yl=FIX<y+5-2*t*t+pu*SIN<an)*t) 

830 IF yl>400 THEN 880 

840 IF x1<0 THEN SOUND 7,3000,10,15 : GOTO 900 
850 IF yl<60 THEN SOUND 7,4000,10,15 : GOTO 900 
860 IF TEST(xl,yl)<>0 THEN 920 

870 PLOT xa,ya,0 : PLOT xa+1,ya,0 : PLOT xa,ya+1,0 : PLOT xa+1,ya+1,0 : PLOT xl,yl,2:PL0 
T xl + 1,yl,2:PL0T x1,y1 +1,2 : PLOT xl+l,yl+l,2 
880 SOUND 7,y1,2,13:NEXT t: GOTO 900 

900 PLOT xa, ya, 0 : PLOT xa+1 , ya , 0 : PLOT xa, ya+1 ,0 : PLOT xa+1 , ya+1 ,0 : f f=0 : FGR a=0 TO 

-an-1 STEP -1:GOSUB 510:NEXT:IF mu>0 GOTO 720 ELSE 1 

050 

920 x3=INT <xl/16) + l:y3=25-INT < y1/16): FOR i=l TO k:x2=xb<i):y2=yb<i) 

940 IF x2=x3 AND y2=y3 THEN SOUND 7,500,50,15:LOCATE x2,y2:PRINT" "; :h=h-l:ci=ci 
+ 1:sc=sc+10: IF ci<k THEN 900 ELSE GOTO 1000 

950 N EXT : SOUND 7,500,50,15,0,0,1 :MOVE xl,yl:DRALI x 1 -4, y 1 , 0 : :MOVE xl,yl:DRAW xl- 
4,yl-4,0:MOVE xl,yl:DRAW xl+4,yl,0:MOVE xl,yl:DRAW x 
1+4,yl-4,0 
960 GOTO 900 

970 'cabriescalas 

971 'chrichri 

1000 SOUND 7,400,200,15:LOCATE 1,23:PEN 1:PRINT" BRAUO.Vous avez détruit to 

utes 1 esc i bl es .Votre score est de : “ ; sc+mu*l 00 11 

":LOCATE 1,25:PEN 3:PRINT""ENTERi Pour passer au chateau suivant."isc=sc+m 

u*l 00 

1010 IF INKEY*OCHR*< 13) THEN 1010 
1020 ti = ti+1 : GOTO 200 

1050 SOUND 7,2000,200,13:L0CATE 1,23:PEN 3:PRINT“Vos munitions sont epuisees.La 
partie est terminee.Votre score est : ";sc + ci*20:FOR 
i=1 TO 15000:NEXT:GOTO 1100 
1100 CLS:RUN 

1200 PAPER 0 :GOSUB 500:FOR i = 19 TO 21:L0CATE 1,i :PRINT c*CHR*<202)STRING*<20,204 
)CHR$< 203);:NEXT 

1210 FOR i=15 TO 18:L0CATE 5,i:PRINT c*CHR*<202)STRING*<i-10,204)b*; :xb<i-14)=i- 
4 :yb<i—14)=i :NEXT 

1220 FOR i=5 TO 10 :LOCATE i,14:PRINT b*; :xb<i)=i :yb<i) = 14:NEXT 
1230 FOR i=16 TO 18:L0CATE 18,i:PRINT c*CHR*<202)CHR*<204):NEXT 
1240 LOCATE 18,15:PRINT b*b*:xb<11) = 18:xb<12) = 19:yb<11) = 15:yb<12) = 15 
1250 FOR i=20 TO 22:L0CATE i,18:PRINT b*; :xb<i-7)=i :yb<i-7) = 18:NEXT 

1255 FOR i=2 TO 20 STEP 2:LOCATE i,20:PRINT a*;:NEXT 

1256 LOCATE 6,17:PRINT d* 

1260 k=15 : PAPER 0 :RETURN 

1300 GOSUB 500 : FOR i=16 TO 21 :LOCATE 1,i :PRINT c*CHR*<202)STRING*<20,204)CHR$<20 
3);:NEXT 

1310 i=15:LOCATE l,i:PRINT c*CHR*<202)CHR*<203);:PAPER 0:PRINT" "c*CHR*<202)CHR 
♦ < 203); : PAPER 0:PRINT" n c*CHR$<202)CHR*<203);:PAPER 
0 : PRINT" 11 c$CHR$< 202) CHR$( 203) ; : PAPER 0:PRINT" " c^CHR^< 202) CHR*< 203) ;: PAPER 0 
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: PRINT" “c$CHR$< 202)CHR$< 20 3); 

1320 FOR i=1 TO 22 STEP 4 :LOCATE 
b< i +1) = 14:NEXT 

1330 FOR i=3 TO 1? STEP 4:LOCATE 
b< i+1> = 15:NEXT 

1340 FOR i=3 TO 21 STEP 2:LOCATE 
1350 LOCATE 10,20:PRINT d* 

13<50 FOR i =3 TO 21 STEP *3 : LOCATE 
1380 k=22:PAPER 0 :RETURN 
1400 PAPER 0 
3000 RUN 


,14:PRINT b$b$;:xb<i)=i!yb<i) = 14 :xb<i+i>=i+1 : y 
,15:PRINT b*b$;:xb<i)=i :yb<i> = 15:xb<i+1)=i+1 : y 
,17:PRINT a*;:NEXT 
,1?:PRINT a*;:NEXT 


COMMENTAIRES : 


Ligne 5 : initialisation des couleurs de 
1'écran 

Ligne 6 : initialisation de l'écran 
Ligne 11 à 33 s redé-f i n i t i on des 
caractères graphiques 
Ligne 110 à 130 : a-f-fichage du château 
Ligne 140 à 150 : dé-finition de l'angle 
de tir 


Ligne 210 i a-f-fichage du château n’X 
Ligne 300 : passage en mode graphique 
Ligne 540 à 745 : a-f-fichage des décors 
de jeu 

Ligne 760 à 770 : choix de l'angle de 


t i r 

Ligne 800 à 960 : calcul et a-f-fichage du 
t i r 

Ligne 1000 : vous avez gagné 
Ligne 1200 à 1380 : a-f-fichage d'une 
partie des décors 


- AMSTRAD CPC 464 - 

MOTS CACHES 

Trouvez les lettres qui composent le mot 
caché dans la mémoire de 
l'ordinateur. Attention, toute lettre déjà tapée 

est refusée. 

Pour jouer, tapez une lettre suivie de «return». 



10 MODE 0 

20 HINDQW 1,40,15,20 = WINDOU #1,1,40,21,25 

30 INK 0,1=INK 1,24=INK 2,26 

40 PAPER #0,0 = P EH #0, 1 PAPER #1,1= PEN #1,0 

50 FOR CQL-3 TO 15=INK COL,1= NEXT 

60 PAPER 0 = PEN 1 

70 GQSUB 470 

30 REM NM=NOMBRE MAX DE DATA 

90 NM=20 

100 DIM FC26 

110 A=INTCNMTRNOC9 > ?+1 

120 RESTORE 

130 FOR T=1 TO A = READ fl$ : NEXT 





















140 L=LEN(fl$ > 

150 FOR T=1 TO 26 : FCT)=0*NEXT 
160 B$=STR I NG$C LENC R$ >, " - " > 

170 ESSflI=0 
180 CLS 
130 PRINT B$ 

200 LQCATE 1j 2 : PRINT"LETTRE" 

210 C*«INKEY*«IF C$="" THEN 210 
220 IF C*<"A" OR C$>"Z" THEN 200 
230 IF FC HSC< C$ >-64>-l THEN 200 
240 PRINT#1,C$; 

250 FL=0 

260 FOR T=1 TO LENCfl$) 

270 IF C*OMIDÏCA$,T, 1 > THEN 290 

280 BS=LEFT$CB«,T-1)+C$+RIGHT$CB*,LENC>-T>*L=L-1*FL=1 
290 NEXT T 
300 PRINT B$ 

310 IF L=0 THEN 360 ELSE IF FL=1 THEN 340 

320 ESSAI=ESSAI+1=INK ESSAI+2.- 24 : IF ESSAI = 13 THEN 410 

330 IF L=0 THEN 410 

340 FC ASCC C$ >-64 5=1 

350 GOTO 180 

360 PRINT #1,"BRAVO !!!!!!!!!!!" 

370 FOR T=1 TO 5=FOR S=100@ TO 100 STEP -20 
380 SOUND 1,S,1,15 
330 NEXT 3,T 
400 GOTO 420 

410 PRINT #1,"PERDU !!!!!!!!!!!" 

420 LOCATE 1,24=PRINT "UNE AUTRE CO/hO"; 

430 A$=INKEY$=IF A$="" THEN 430 
440 IF A$="Q" THEN RUN 
450 IF A$="N" THEN END 


460 

GOTO 

440 



470 

ORIGIN 0,0,0, 

639,399,200 

480 

MOVE 

200,210 

DRAW 

400,210,3 

490 

MOVE 

300,210 

DRAW 

300,393,4 

500 

MOVE 

200,210 

DRAW 

300,250,5 

510 

MOVE 

400,210 

DRAW 

300,250,6 

520 

MOVE 

300,399 

DRAW 

400,339,7 

530 

MOVE 

300,350 

DRAW 

350,399,8 

540 

MOVE 

400,399 

DRAW 

400,379,9 

550 

MOVE 

390,379 

DRAW 

412,379,10=DRAW 412,359=DRAW 390,359=DRAW 390,379 

560 

MOVE 

400,359 

DRAW 

400,309,11 

570 

MOVE 

400,349 

DRAW 

380,340,12 

580 

MOVE 

400,349 

DRAW 

422,340,13 

590 

MOVE 

400,309 

DRAW 

380,270,14 

600 

MOVE 

400,303 

DRAW 

422,270,15 

610 

RETURN 




620 DATA MOBILE,JOURNAL,ORDINATEUR,MODULE,RADIRTEUR;VEHICULE,MAGNETISME 
,ELEPHANT 

630 DATA CIGARETTE,CENDRIER,CRAYON,CRITERIUM 

640 DATA UNI TE,CHAUSSURE,LACET,CAISSE,TRAIN,MONTAGNE,COULEUR,CLASSEUR 


COMMENTAIRES t 

Ligne 10 à 40 : initialisation écran 
(mode et couleur) 

Ligne 50 à 70 : mise en place couleur 
dessin et texte 

Ligne 80 à 100 : initialisation des 
tabl eaux 


Ligne 110 à 170 : choix des mots et 

initi1iasation du texte 

Ligne 180 à 240 : saisie des touches 

Ligne 250 à 350 : test si lettre valide 

Ligne 360 à 460 : texte gagné ou perdu 

Ligne 470 à 610 : dessin pendu 

Ligne 430 à la -fin ! data et mot à tirer 
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-—- AMSTRAD CPC 464 --- 

DROLES DE CARACTERES ! 

Créez les graphismes de vos futurs jeux. 

Pour vous diriger à l'intérieur d'un caractère à redéfinir, 
utilisez les quatre touches d’édition. 

Pressez la barre d'espace pour remplir un carré, 

E pour effacer, C pour valider le caractère redéfini, 

Z pour rendre la grille entièrement blanche. 



! î ! IL FAUT 
CHAUD FAIRE 


10 REM ! ! ! ! IMPORTANT 
20 REM POUR UN DEMARRAGE 
6 ET S'ETEND SUR 2048 
30 WINDOW £1,1,40,25,25 

IF PEEK<&176>=65 THEN GOTO 290 
GOTO 190 

REM ***** TEST CLAVIER ***** 


ABSOLUMENT METTRE CETTE 
GOTO 1300 LE GENERATEUR 


LIGNE 
SE TROUVE 


EN 4095 


40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


a*=INKEY*:IF a*="’ 
cha=ASC<a*>:RETURN 


THEN 80 


REM ***** MENU ***** 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

RETURN 


15,18:PRINT"E >EFFACE“ 

15,19:PRINT "ESPACE >REMPLI“ 
15,21:PRINT"C >CREATION“ 
15,22:PRINT"S >S0RTIE" 

15,23:PRINT"Z >GRILLE A ZERO" 


REM ***** INITIALISATION ***** 

/ 

POKE &176,65:mem=HIMEM: PRINT mem 
BORDER 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


0 : INK 0,0:INK 1,11:INK 2,24,1:INK 3,6:PAPER 0:PEN 1:CLS 
AFTER 32 

255,&80,&8Q,&80,&80,&80,&80,&80,&FF 

253.193.162.148.136.148.162.193.255 
252,0,0,0,0,0,0,0,0 

251.255.255.255.255.255.255.255.255 


REM **** CADRILLAGE **** 

/ 

CLS 

CLEAR:GOSUB 360 :x=-l:y=2:GOSUB 110 

INPUT £1," CODE CARACTERE DECIMAL <32->250):"; CA : 

IF CA<32 OR CA>250 THEN 340 ELSE CARA=CA:GOTO 510 

FOR Y=208 TO 336 STEP 16 

ORIGIN 240,y : DRAW 128,0 

NEXT 

FOR x=240 TO 372 STEP 16 
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400 ORIGIN x,208 : DRAW 0,128 
410 NEXT 
420 RETURN 
430 ' 

440 ' 

450 ' 

460 LOCATE 1,25 : PRINT"VOULEZ-VOUS EN DEFINIR UN AUTRE <0/N>?“ 

470 GOSUB 60 

480 IF A$="O“ OR A$="o" THEN GOTO 290 
490 IF A$="N" OR A*="n" THEN CLS: END 
500 GOTO 470 
510 ' 

520 REM **** GENERATION **** 

530 ' 

540 NB=CA-32:AD=(HIMEM+1> + <NB*8):XX=0:YY=0:L=5 

550 FOR A=AD TO AD+7 

560 B=PEEK<A):Ua=l28 :C=16 

570 FOR Q=0 TO 7 

580 R=B-UA 

590 IF R<0 THEN CA<XX,YY)=0:LOCATE C,L:PRINT CHR*<255) ELSE CA<XX,YY)=1:LOCATE C 

,LSPRINT CHR*<251>:b=r 

600 UA=UA/2:XX=XX+1:C=C+1sNEXT Q 

610 L=L+1:YY=YY+1:XX=0sNEXT A 

620 HO=0:VE=0 

630 q=2:GOSUB 960:q=0 

640 c=l6:1=5:LOCATE c,1 SPRINT CHR*<253> 

650 GOSUB 110 
660 REM test c1av 
670 ho=0: ve=0 

680 CA=254:Q=1 :CH=L>E: GOSUB 970:LOCATE 16,16:PEN 3SPRINT CARA; :PEN 1:PRINT n = ";:PE 

N 3 : PRINT CHR*<254):PEN 1 :GOSUB 60 

690 IF cha=243 THEN ic=l:i1=0 : GOTO 790 

700 IF cha=242 THEN ic=-l:i1=0 : GOTO 790 

710 IF cha=241 THEN i1=+1 :ic=0: GOTO 790 

720 IF cha=240 THEN i1=-l:ic=0: GOTO 790 

730 IF cha=32 THEN ca(ho,ve) = 1: GOTO 840 

740 IF cha=69 OR cha=101 THEN ca(ho,ve)=0:LOCATE c,lSPRINT CHR*<253):PEN 1:GOTO 
680 

750 IF cha=67 OR cha=99 THEN Q=0:GOTO 860 
760 IF cha=83 OR cha=115 THEN 430 
770 IF a*="z" OR a*="Z“ THEN .1160 
780 GOTO 680 
790 ' 

800 IF ca<ho,ve)=0 THEN LOCATE c,1:PRINT CHR*<255) ELSE PEN 1:LOCATE c,lSPRINT C 
HR*<251) 

810 c=c+ic:l=l+i1:ho=ho+ic:ve=ve+i1 

820 IF c <16 OR c >23 OR 1<5 OR 1>12 THEN c=c-ic: 1=1 -il :ho=ho-ic:ve=we-i1 
830 IF ca(ho,ve)=0 THEN LOCATE c,1SPRINT CHR#<253):PEN 1:GOTO 680 
840 PEN 2:LOCATE c,lSPRINT CHR*<251):PEN 1 
850 GOTO 680 

860 CA=CARA:LOCATE 1,25:PRINT STRING*<39,32); 

870 LOCATE 1,25:PRINT"REDEFINITION DE "CHR^CCA)" <O/N)?" ; :GOSUB 60 

880 IF a*-"0" OR a*="o" THEN 910 

890 IF a*="N" OR a*="n" THEN 680 

900 GOTO 870 

910 GOSUB 960 

920 LOCATE 1,25SPRINT STRING*<39,32); 

930 'X=-l:Y=2 
940 'GOSUB 500 

950 FOR L=5 TO 12:L0CATE 16,L:PRINT STRING*<3,255);sNEXT:LOCATE 34,4:PRINT STRIN 

(3»< 5,252) : CLEAR : GOTO 330 

960 FOR CH=0 TO 7 

970 VA=128 :C(CH)=0 

980 FOR N=0 TO 7 

990 IF CA<N,CH)=0 THEN UA=UA/2: GOTO 1020 
1000 C(CH)=C<CH)+UA 
1010 UA=VA/2 
1020 NEXT N 
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1030 IF Q=1 THEN 1050 
1040 NEXT CH 

1050 SYMBOL CA,C<0) ,CCI ) ,C<2) ,C<3) ,C<4) ,C<5) ,C<6) ,C<7> 

1060 IF 0=1 THEN 1100 
1070 IF q=2 THEN RETURN 

1080 IF 0=0 THEN :LOCATE 11,4:PRINT ■HEXA“; :LOCATE 25,4:PRINT "DECI"; :K=5: FOR 1 = 
0 TO 7:LOCATE 12,K:PRINT HEX*<C<I));:LOCATE 25,K:PRI 
NT C(I); :K=K+1:NEXT I :ERASE C 

1090 LOCATE 1,25:PEN 3:PRINT"PRESSEZ UNE TOUCHE”STRING*<10,252):PEN 1:GOSUB 60:F 
OR K=4 TO 13:LOCATE 25,K:PRINT" ";îLOCATE 11,K: 

PRINT" ";:NEXT K:LOCATE 16,16:PRINT STRING*<8,252); 

1100 IF Q=0 THEN 920 
1110 RETURN 

1120 ERASE ca,c: SYMBOL 254,0,0,0,0,0,0,0,0 

1130 FOR 1=5 TO 12 :LOCATE 16,1:PRINT STRING*<8,255);:NEXT 1:GQSUB 360 :ho=0:ve=0: 
GOTO 640 


OMMENTAIRES : 

.igné 30 : initialisation de -fenêtre 
.igné 40 ! test si premier RUN 
.igné 60 à 100 : sous routine test du 
:1 au i er 

.igné 110 à 190 : sous routine du menu 
.igné 200 à 290 : initialisation des 
:ouleurs et caractères 
.igné 300 à 350 : entrée du code 


caractère 

Ligne 360 à 420 : sous routine 
quadri11 âge 

Ligne 450 à 500 : fin de programme 
Ligne 520 à 650 : initialisation de la 
grille et des caractères 
Ligne 670 à 780 : test du clavier 
Ligne 800 à 850 : affichage croix ou 
blanc 

Ligne 860 à 1130 : traitement des 
tableaux 


- AMSTRAD CPC 464 -- 

LES ASCII ATTAQUENT 


Des vagues de caractères ASCII déferlent sur vous. 
Détruisez-les et... apprenez à 
les reconnaître : 

Ils suivent un ordre d'apparition implacable. 
Utilisez les touches du curseur 
pour vous déplacer et la barre d'espace pour tirer. 



10 

20 

30 

40 

50 

60 

70 

80 

90 


REM ASCII attaquent ___ .... 

SSSTÏ ,ÎEFÏ .Sïïiffï .ÿ.îif’SîjfiîîÜTfîSiS 0 : BORDER 0 

REM= rede-f-f i n i t i on des caractères - 
SYMBOL 200,0,3,7,31,4,252,111,224 
SYMBOL 201,0,0,128,252,128,248,252,31 
SYMBOL 203,224,111,252,4,31,7,3,0 


100 


d*=" "+CHR*<10)+CHR*<8)+CHR*<8>+' 
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110 REM == de-F-f i n i t i on du niveau = 

120 INPUT "quel niveau (1,2,3)";nI 

130 IF ni=1 THEN n=3 

140 IF ni=2 THEN n=2 

150 IF ni=3 THEN n=l 

160 REM positionnent des étoiles 

170 MODE 1 : FOR c=l TO 2:FOR i = l TO 100:PLOT RND<1>*640,RND<1>*400,c 
180 NEXT i,c 

190 '=========== Jeu ================ 

200 EUERY 100,1 GOSUB 370 

210 as=l63:no=0: x=l : y=l 2:x0=32:y0=206:PEN 1 sLOCATE l,y:PRINT v$:GOSUB 370 
220 xx=0 

230 IF INKEY(72)=0 OR INKEY<0)=0 THEN y1=-1:xx=l: GOTO 250 

240 IF INKEY(73>=0 OR INKEY<2)=0 THEN yl=l:xx=l 

250 IF INKEY(47)=0 OR INKEY<76)=0 THEN GOSUB 340 

260 IF y<=2 THEN y=2 

270 IF y>=23 THEN y=23 

280 IF xx=l THEN LOCATE l,y:PRINT d* 

290 IF xx=1 THEN y=y+yl:IF y>=2 AND y<=23 THEN y0=y0-16*yl 
300 IF y<=2 THEN y=2 
310 IF y>=23 THEN y=23 

320 IF xx=1 THEN PEN 1 :LOCATE l,y:PRINT v»; 

330 GOTO 220 

340 REM ============ tir =========== 

350 MOUE xO,y0-8:DRAWR 200*n,0,2:F0R i=l TO 10:PRINT CHR*<7);:NEXT i:MOVE x0,y0+ 
10 :DRAWR 200*n,0,2 : FOR i=l TO 10:PRINT CHR$(7);:NEXT 

360 :MÜL>E xO , y0-8 : DRAWR 200*n ,0,0 :MOCE xO , y0+1 0 : DRAWR 200*n , 0,0 : FOR i=l TO 10.-PR 

INT CHR*<7>;:NEXT i:GOTO 470 

370 REM routine pour les attaquants 

380 PEN 3 

390 IF no<=0 THEN no=5:as=as+1 :a(1>=40 :a(2)=40:a(3)=40:a(4)=40:a(5)=40:b(1>=3:b< 
2) = 10:b<3) = 15: b< 4)=20 : b( 5)=20 : as* < 1 >=CHR*(as> :as*<2> 

=CHR$(as>:as*(2>=CHR$<as>:as$<3>=CHR*<as):as$(4)=CHR$<as>:as$<5>=CHR$<as) 

400 FOR x=l TO 5 

410 LOCATE a(x),b(x): PRINT * ■; 

420 a<x)=a(x)-INT(RND(l)*5)-2:de t=RND(1)*4 :b(x)=b(x) + INT(RND(1)*7-det) 

430 IF b(x)<1 THEN b(x)=l 
440 IF b(x)>23 THEN b<x)=23 

450 IF a< x)<=0 THEN GOTO 3000 ELSE LOCATE a(x),b(x): PRINT as$Kx);:NEXT x 
460 PEN 1 
465 RETURN 

470 REM ======= test de touche ========= 

480 IF n=3 THEN tou=40 

485 IF n=2 THEN tou=28 

490 IF n=l THEN tou=15 

500 FOR ds=l TO 5 

510 IF a(ds)> tou THEN GOTO 530 

520 IF <b(ds)=y OR b(ds)=y+l) AND as*(ds)<>" " THEN no=no-l:as$(ds)=" ":F0R i=l 
TO 15 : PRINT CHR$<7);:NEXT i:LOCATE a<ds),b<ds):PRINT 

Il II a 

530 NEXT ds 
540 RETURN 

3000 REM =====- -fin -==== 

3005 a*=INKEY*:IF a*<>"" THEN 3005 
3010 INPUT "une autre";a* 

3040 IF a$="oui" THEN RUN 


COMENTAIRES : 

Ligne 20 : dé-finition des variables de 
jeu 

Ligne 30 : initialisation de l'écran 
Ligne 40 à 80 : redé-f i n i t i on des 
caractères graphiques 
Ligne 110 à 150 : choix du niveau 


Ligne 160 à 180 : positionnement 
aléatoire des étoiles 

Ligne 190 à 330 : routine principale du 
jeu 

Ligne 340 à 465 : calcul et a-f-fichage de 
votre tir 

Ligne470 à 540 : test du clavier 
Ligne 3000 à 3040 : -fin de la partie 
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- AMSTRAD CPC 464 - 

CASSE BOUTEILLE 

Des bouteilles avancent lentement sur un tapis roulant 

à trois niveaux. 

Rattrapez-les au fur et à mesure 
de leur arrivée. 

Pour monter ou descendre, utilisez les touches : 
Curseur haut pour monter, curseur bas pour descendre. 



MOVE 624, a. : PR INT" ! " : 


i i i i i i i 


10 REM TILT CONSERVE 
20 REM définition des couleurs 

39 MODE 1^INK 0,0*INK 1,25=INK 2,27 : INK 3,15=BORDER Ô 

40 REM redéfinition des couleurs 
50 SYMBOL RFTER 0 

60 SYMBOL 33,255,255,255,255,255,255,255,255 
70 REM décors 

80 FOR'a-1S TO 400 STEP 16 = TRG = MOVE @,a : PRINT "!"} =TflG 
90 NEXT a 

100 TRG:MOVE 0; 16 :PRINT"!!!!!!!!!!!!!!!!!!!!!!!!!!!!! . 

110 PLOT -2,-2,2 = TRG = MOVE 0,120 : PRINT ""i 
120 TRG = MOVE 0,220 = PRINT" " ; 

130 TRG=MOVE 0,320 : PRINT ""s 
140 PLOT -2,-2,1 

150 TRG = MOVE 0, 400 = PRINT" ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! î ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! i ! ! " '> 

160 TRG MOVE 0, 72 = PRINT" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"; 

170 TRG : MOVE 48,50=PRINT" SCORE FAUTE"i 

180 REM initialisation 

180 R$=" fl " :BÏ='V! V' ! C$=" " : D$— " 

200 R=152 : B=32 : C=32 = D=32 : EJ=" !" 

210 SCORE=0=FRUTE=0 

220 REM affiche score et nombre faute 

230 TRG : MOVE 160,50=PRINT SCORE, =TRG=MOVE 370,50=PRINT FAUTE, 

240 REM affiche PersonnaSe 

250 TRG = MOVE 480, R = PR I N T R$= MOVE 480, R-16 = PR IN T B$, = MOVE 480, R-32 = 

260 TRG = MOVE 480, R = PRINT D$; = MOVE 480, R-16 = PRIHT D$ , = MOVE 480, R-32 = 

270 REM test clavier 

230 IF INKEY C0)=0 AND R<344 THEN fl=fl+96 

290 IF INKEY <2>=0 AND fl>152 THEN R=R-96 

308 REM affiche conserve 
: = TflG 
: = TflG 
! = TRG 


PRINT C$, 
PRINT D$; 


MOVE B,336=PRINT E$; 
MOVE C,236=PRINT ES; 
MOVE D,136 = PRINT E$; 


MOVE B,336+16 
MOVE C,236+16 
MOVE D,136+16 


PRINT ESi 
PRINT E$, 
PRINT E$, 


310 SOUND 1,5TB,2 
320 SOUND 2,5TC,2 
330 SOUND 3,5TD,2 
340 REM test 

350 IF B>440 AND R<>344 THEN SOUND 1,300,9 = FRUTE=FRUTE+1= B=32 = TflG = 
PR î NT " "i = MOVE 440,336+16 = PRINT " ", 

360 IF B>440 THEN SOUND 1,300,5=B=32=TRG=MOVE 440,336=PRINT " 

Ï6=PRINT " 

370 IF FAUTE>3 THEN 470 

380 IF C>440 AND R<>248 THEN SOUND 1,300,9 = FflUTE=FRUTE+l=C=32 = TRG = 


MOVE 440, 
MOVE 440, 


336 = 
336+ 


MOVE 440,236= 
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PR I NT " " i = NO VE 440 .■ 236+16 = PRINT " “ 

390 IF 0440 THEN SOUND 1 .■ 300,5 : C=32 TPG : MO VE 440.. 236 : PR INT 11 "i 'MOVE 440.; 236+ 

16 : PRINT " "i 

400 IF FAUTE>3 THEN 470 

410 IF DM40 AND R0152 THEN SOUND 1,300,9 : FflUTE=FfilJTE+l : D=32 : TAG : MUVE 440, 13b= 
PR I HT " " ; = MOVE 440, 136+16 - PR I HT " " ; 

420 IF DM40 THEN SOUND 1,300,5 : D=32 ' TAG= MOVE 440,136 : PR INT " "} ■ MUVE 440,136+ 

16 : PRINT " "; 

430 IF FAUTE>3 THEN 470 

440 B=B+RND <10>*10 : C=C+RND <1014.9;D=D+RND <10 16 

450 SC0RE-SC0RE+5 
460 GOTO 230 

470 TAG NHVE 48, 32'PRINT"PRESSEZ UNE TOUCHE"i'FOR A=0 TO 1000 : NEXT A 
480 IF 1HKEV$=""THEN 480 ELSE RUN 


COMMENTAIRES : 

Ligne 30 : dé-finition des couleurs 
Ligne 50 à 60 : redéfinition des 
caractères 

Ligne 80 à 170 : tracé du décor 
Ligne 190 à 210 : initialisation des 
variables 

Ligne 230 : affichage du score et du 


nombre de faute 

Ligne 250 à 260 : affichage des 
personnages 

Ligne 280 à 290 : tests du clavier 
Ligne 310 à 330 : affichage des 
boutei11 es 

Ligne 350 à 440 : tests des déplacements 
Ligne 450 : augmente le score 
Ligne 470 à 480 : fin de la partie 


AMSTRAD CPC 464 


UN PONT, ÇA VA, TROIS PONTS 

Aidez des jeunes filles à traverser 
une rivière en plaçant sous leurs pas les éléments 
d'un pont transportable. 

Comble de malchance, les charmantes demoiselles 
apparaissent sur trois niveaux différents... 

Pour placer un élément du pont, 
utilisez les touches du curseur haut et bas. 


• •• 


10 REM TILT PONT 

20 REM définition des couleurs 

30 MODE 1=INK 0,0=INK 1,25=INK 2,27=INK 3,15=BORDER 0 
40 REM définition de caractère 
50 SYMBOL flFTER 0 

60 SYMBOL 33,255,255,255,255,255,255,255,255 
70 REM décors- 

80 FOR a=16 TO 400 STEP 16 = TAG = MOVE 0,a = PRINT"!";= THG = MOVE 624,a=PRINT"!" ; 
90 NEXT a 

100 THG = MOVE 0,16 = PRINT"! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 

110 PLOT -2,-2,2=THG=MOVE 0,120=PRINT" "> 

120 THG=MOVE 0,216=PRINT" "i 

130 THG=MOVE 0,312=PRINT" "i 

140 PLOT -2,-2,1 


i i i i i i r i i i i i i» 


MOVE 0,400=PRINT 1 


Il 1 1 1 1 1 1 1 1 1 1 

■ i i i i i i i i . 

i i i i i i i i i i 

1 1 1 1 1 " ; 

1 1 1 1 1 1 1 1 1 1 1 

i i i i i i i i i i i i i i 

i i i i i i i i i i 


" SCORE 

FAUTE" 




150 THG = i 

160 THG= MOVE 0,72=PR INI 
170 THG=MOVE 48,50=PRII 
180 REM initialisation 
190 B$=""= D$=" 

200 fl= 136 = B=32 = C=32 = D=32 = E$ï= " " =F$=" " 

2 ï 0 SCQRE=0 = FHUTE=0 

220 REM affiche score et nombre de fautes 

230 THG = MOVE 1 60 , 50 = PR I NT SCORE i = TRG = MOVE 370 , 50 = PR I NT FAUTE i 
240 THG= MOVE 274, H- 16 = PRINT Bï; 


200 
























£50 REM affiche Personnages 


260 

SOUND 

1,5*8,2 

THG 

MOVE 

B, 328 

PR INT 

Ef ; 

MOVE 

B,328+16 

FR INT 

FS; 

£70 

SOUND 

2, 5*Ü,2 

TRG 

MOVE 

C, 232 

PR INT 

E$; 

MOVE 

C,232+16 

PR INT 

F$; 

280 

SOUND 

3,5*0,2 

THG 

MOVE 

D, 136 

PR INT 

E$; 

MOVE 

D,136+16 

PR INT 

FS ; 


290 REM test 

300 IF B>258 AND B<370 HND H<>328 THEN SOUND 1 .■ 300,9 : FHUTE=FHUTE+1 : B=32 : TfiG • MO- 
E 258,328 ; PR INT " " ; '■ MOVE 258 , 328+16 : PR INT 


31 Pi IF D>258 HND D<360 HND H0136 THEN SOUND 1,360.9 : FBUTE=FHUTE+1 : D=32 : THG ■ MOV 
Ê 258.■ 136 ; PRI NT " "; = MOVE 258,136+16 = PRI NT " 


320 IF C>254 HND CC354 HND fl<>232 THEN SOUND 1,300,9 : FHU T E=FRUTE+1 : C-32 : THG ; MOV 
Ê 254,232 : PRINT " "; : MOVE 254,232+16 = PRINT " 


330 IF B>500 THEN B=32 : THG : MOVE 500,328 : PRINT " 
340 1F 0500 THEN C=32 : TRG : MOVE 500.- 232 : PR INT " 

Il II . 

350 IF D>500 THEN D=32 : THG •MOVE 500, 136 =PRINT " 


"; :MOVE 500,328+16 : PR1NT " 
"} ■■ MOVE 500, £32+16 • PR I HT 
"; ■■ MOVE 500, 136+16 : PR I NT " 


360 B=B+RND <10>*7 = C=C+RND <10>*12.9 : D=D+RHD (10>*16 
370 TRG•MOVE £74,fi-16 : PRINT DS; 

380 REM test des touches 

390 IF INKEY <0>=0 HND fl<31@ THEN fl=H+96 

4O0 IF- INKEY C2>=0 HND H>152 THEN H=R-96 

410 IF FRUTE>3 THEN 440 

420 SC0RE=SC0RE+5 

430 GOTO 230 

440 TRG : MOVE 48,32 : PRINT"PRESSEZ UNE TOUCHE"; : FOR fi=0 TU 2000 : NEXT H 
450 IF IHKEY$=""THEN 450 ELSE RUN 


igné 30 : dé-finition des couleurs 
igné 50 à 60 : redéfinition des 
aractères 

igné 80 à 170 : affichage du décor 


Ligne 190 à 210 
variables 
Ligne 250 à 280 
personnages 
Ligne 300 à 370 
Ligne 390 à 410 
Ligne 420 à 450 


initialisation des 

affichage des 

test du jeu 
test du clavier 
fin de la partie 
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ET trOUBUE Z PAS 
LE 4 NOVEMBRE THJ 

JEUX El MICRO: 
LE GUIDE 86 



• Plus de 600 logiciels testés 

• 40 micro-ordinateurs passés au 
banc d'essai 

• Les «Tilt d'or» 86 

•Tous les ordinateurs d'échecs 

• Le point sur les consoles 

• Quel micro choisir ? Les questions 
à poser... 


• Un panorama des technologies 
du futur 

Et... les livres, les adresses indis¬ 
pensables, le répertoire de tous 
les articles parus dans TILT, le lexi¬ 
que de tous les termes informati¬ 
ques, nos P.A... 


En vente chez tous les marchands de journaux 









IUC FAITCS-WOUS? 


fiçi-is 


79, rue Hippolyte Kahn 
69100 Villeurbanne - Tél. 803.18.46 


QUAND LA LEGENDE FAISAIT LHISTOIRE 


MANDHA 

n ronrl Driv ... N /1inio+Ar/-\ Ha Pi ilfi ir^ 


Grand Prix - Ministère de la Culture 

le plus récent, et aussi le meilleur jeu de rôle sur micro..." (Jeux et Stratégie) 
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